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ABSTRACT 


This  thesis  describes  a  computer  program  which  per¬ 
forms  material  and/or  energy  balance  calculations  of  an  ar¬ 
bitrary  process.  It  employs  information  specified  in  input 
streams  to,  and  output  streams  from,  a  balance  envelope  con¬ 
taining  one  or  more  units.  This  material  and  energy  balance 
program  is  capable  of  solving  many  problems  when  used  with  its 
own  executive  routine  but  it  was  integrated  into  the  logic  of 
an  existing  program,  PACER,  so  as  to  extend  the  power  of  both 
programs . 

Many  of  the  executive  programs  reported  in  the  lit¬ 
erature,  including  PACER,  were  only  capable  of  handling  prob¬ 
lems  in  which  all  feed  streams  were  totally  specified. 

The  combined  program  may  simplify  the  solution  of 
some  problems  by  eliminating  the  recycle  calculations  which 
PACER  would  perform  if  used  alone.  This  is  illustrated  in 
the  example  problems  presented  in  the  Appendices. 

The  rule  of  calculation  recommended  for  stability 
is  the  calculation  of  physical  outputs  from  known  inputs. 

Through  the  solution  of  material  and  energy  balances  around 
feasible  balance  envelopes  located  by  the  balance  routine  logic, 
this  rule  of  calculation  is  preserved  in  many  instances. 

Subroutines  for  the  calculation  of  dew  point  and 
bubble  point  temperatures,  qualities  and  enthalpies  were  in¬ 
cluded  in  the  executive  program  to  permit  calculation  of 
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I .  INTRODUCTION 

A  part  of  most  chemical  engineering  problems,  notably 
design  problems,  is  the  material  and  energy  balance  calcula¬ 
tion  of  the  process  under  consideration.  This  thesis  deals 
with  computer  programs  written  to  accomplish  this  task. 

This  tedious  task  of  calculating  steady  state  materi¬ 
al  and  energy  balances  was  previously  done  by  hand  calculation. 
Often  the  engineer  was  able  to  employ  his  intuition  and  experi¬ 
ence  in  completing  the  balance  of  the  process  under  considera¬ 
tion  especially  when  recycle  loops  such  as  Units  1,  2,  4  and 
5  in  Figure  I  were  involved.  To  perform  the  material  and  ener¬ 
gy  balance  of  a  process  manually  the  engineer  required: 

1.  the  process  flow  diagram  (Figure  I) 

2.  physical  property  and  engineering  data 

3.  a  mathematical  model  for  each  unit  in  the  process  which 
completes  the  material  and  energy  balance  for  that  unit. 

From  this  the  experienced  engineer  attacked  each  problem  in 
the  same  manner.  He  determined: 

1.  the  sequence  of  calculation 

2.  if  any  recycle  loops  were  present  and  if  so  how  best  to 
accomplish  the  trial  and  error  calculations 

3.  a  method  of  convergence  (or  in  other  words  a  method  to 
decide  what  values  to  use  for  the  calculation  of  the  next 
iteration  when  recycle  is  involved)  and  a  test  for  the 
existence  of  an  "acceptable"  solution. 
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Figure  I 

A  Process  Flow  Diagram 
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Effecting  changes  in  the  flowsheet  or  to  the  equip¬ 
ment  parameters  involved  resulted  in  a  new  problem.  The 
element  of  human  error  made  comparison  of  related  cases  un¬ 
reliable  . 

The  introduction  of  the  high  speed  digital  computer 
rendered  results  consistent  with  the  data  supplied.  Thus, 
trends  resulting  from  any  variations  to  the  flowsheet  or  its 
parameters  became  more  discernible.  These  early  programs 
written  to  calculate  a  specific  process  were  inflexible.  As 
with  manual  calculation  a  slight  change  in  the  process  often 
resulted  in  a  completely  new  problem.  Little,  if  any,  use 
could  be  made  of  the  previous  solution. 

A.  Executive  Program  Concept 

Inevitably  the  executive  type  programs  were  destined 
to  replace  the  inflexible  "special-purpose"  program.  This 
concept  in  programming  requires  essentially  the  same  infor¬ 
mation  as  would  be  required  by  the  manual  calculation  method 
or  the  "special-purpose"  program: 

1.  flow  diagram  or  flowsheet 

2.  engineering  and  physical  property  data 

3.  an  equipment  subroutine  for  each  different  unit  in  the 
process.  The  equipment  subroutine  effects  the  unit  cal¬ 
culation.  (It  completes  the  material  and  energy  balance 
around  a  unit  and/or  the  equipment  design.) 
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The  executive  system  is  essentially  independent  of 
chemical  engineering  and  hence  does  not  require  the  retrain¬ 
ing  of  experienced  chemical  engineers  for  its  development. 

The  executive  system  uses  a  logic  in  the  approach 
to  the  problem  of  the  material  and  energy  balance  calculation 
which  is  often  identical  to  that  outlined  above  for  the  manual 
method.  The  executive  program  makes  the  decisions  which  the 
engineer  would  have  to  make  in  solving  the  same  problem  by 
hand.  However,  the  data  and  the  process  flowsheet  must  be 
encoded  so  as  to  be  interpreted  by  the  digital  computer. 

To  effect  changes  in  the  process  layout  using  this 
type  of  system  requires  only  alteration  to  the  input  data 
and  possibly  the  addition,  or  replacement,  of  equipment  sub¬ 
routines.  Indeed,  to  change  the  problem  completely  only  re¬ 
quires  this  alteration.  The  flexibility  of  this  executive 
concept  usually  outweighs  the  efficiency  associated  with  the 
'fepecial- purpose"  program.  The  executive  program  is  at  a  dis¬ 
advantage  when  the  identical  design  or  simulation  is  to  be 
repeated  many  times.  It  is  here  that  the  "special-purpose" 
program  is  most  economical. 

Use  of  the  executive  program  releases  the  experienced 
engineer  from  the  laborious  and  repetitious  task  of  completing 
material  and  energy  balances  to  devote  his  time  to  more  cre¬ 


ative  work. 
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B .  Executive  Logic 

The  basic  rule  for  calculation  common  to  the  exe¬ 
cutive  programs  presented  in  the  literature  is,  knowing  all 
the  inputs  to  a  particular  unit,  calculate  the  outputs  from 
the  equipment  model.  An  equipment  subroutine  is  supplied  for 
each  different  equipment  in  the  process  to  effect  the  unit 
calculations . 

If  this  rule  of  calculation  is  strictly  adhered  to, 
greater  numerical  stability  is  the  result  in  the  overall  simu¬ 
lation  or  design.  Rinard(15)  emphasizes  this  statement  by 
the  following  example.  By  material  balance  around  unit  A  in 
Figure  II, 

X  (4)  +  X  ( 6 )  =  X(l)  +  X  ( 2 )  +  X  ( 3 )  (1) 

where  X(I)  is  an  element  of  a  vector  X(I)  corresponding  to 
a  conserved  component  flow  rate.  X(I)  is  simply  a  vector  of 
flow  rates  of  the  components  in  stream  I.  It  may  also  in¬ 
clude  the  enthalpy  of  the  stream  as  one  additional  element. 

The  unit  calculation  supplies  an  additional  rela¬ 
tionship  , 

X ( 4 )  =  KA1X(1)  +  KA2X(2)  +  KA3X(3)  (2) 

where  KA^  is  the  fraction  of  the  component  flow  rate  of 
stream  i  entering  unit  A  which  leaves  in  stream  4 . 

0  <  KA.  <_  1 

—  l 


for 


i  =  1,2,3 
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Figure  II 

Flow  Diagram  of  a  Unit 
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Knowing  the  input  variables  X(l),  X(2)  and  X(3)  the  output 
streams  X(4)  and  X(6)  can  be  calculated.  For  example,  com¬ 
bining  equations  (1)  and  (2) : 

X ( 6 )  =  (1-KA1)X(1)  +  (1-KA2)X(2)  +  (1-KA3)X(3)  (3) 

The  input-to-output  gains  (1-KA^)  for  i  =  1,2,3  are  bounded 
by  zero  and  one. 

However,  supposing  X(l),  X(3)  and  X(4)  are  known 
and  it  is  desired  to  calculate  X(2)  and  X(6).  Then: 

1  KA, 

X  (  6 )  =  -(1 - )  X  ( 4 )  +  (1 - —)  X  ( 1 ) 

ka2  ka2 

KAt 

+  (1 - —)  X  (  3 )  (4) 

ka2 

This  renders  input-to-output  gains  unbounded  accentuating 
errors  made  in  the  initial  guesses  of  recycle  streams.  There¬ 
fore,  where  possible  it  is  advisable  to  maintain  the  rule  of 
calculation  -  that  is,  calculation  of  outputs  from  inputs. 

C .  Material  and  Energy  Balance  Calculation 

It  is  to  preserve  this  rule  of  calculation  that  a 
material  and  energy  balance  routine  was  introduced  to  an 
executive  program.  Using  the  executive  program,  PACER(9), 
the  executive  logic  is  integrated  with  a  material  and  energy 
balance  computer  program  to  allow  the  solution  of  some  prob¬ 
lems  previously  beyond  the 4 scope  of  PACER. 
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PACER  was  chosen  since  it  was  available  in  documented 
form  in  a  Master  of  Science  thesis (9).  Later  versions  of 
PACER  have  since  been  developed ( 21 ) .  Any  other  executive  pro¬ 
gram  using  the  same  sequential  method  of  calculation  as  PACER 
could  be  improved  with  the  addition  of  the  subroutines  of  this 
material  and  energy  balance  program.  PACER  employs  the  trial 
and  error  method  of  calculation  identical  to  that  which  would 
be  used  by  an  engineer  doing  the  material  and  energy  balance 
manually . 

PACER  was  constructed  to  handle  problems  that  had 
all  fresh  feed  streams  (streams  1  and  11  in  Figure  I)  to  the 
process  specified.  Thus,  since  all  inputs  to  the  system  are 
given,  the  basic  rule  of  calculation  is  preserved  and  all 
streams  can  be  calculated  given  values  of  parameters  involved 
and  equipment  subroutines.  Often  the  problem  is  slightly 
altered  and  some  fresh  feed  stream  variables  are  not  speci¬ 
fied  whereas  some  quantities  are  specified  in  inter-equipment 
streams  (streams  2,  3,  4,  5,  7,  8  and  9  in  Figure  I)  or  pro¬ 
duct  streams  (streams  6  and  10  in  Figure  I) .  PACER  could  not 
handle  this  case.  This  work  describes  the  subroutines  which 
when  added  to  PACER  enable  the  integrated  program  to  handle 
some  of  these  problems. 

Given  some  information  other  than  feed  specifica¬ 
tions  the  modified  executive  system  attempts  material  and/or 
energy  balances  around  units  yielding  a  plausible  balance 
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envelope  in  order  to  calculate  unknown  inputs.  Even  when 
all  inputs  to  the  process  are  specified  an  attempt  is  made 
by  material  and  energy  balance  subroutines  to  exploit  any 
information  specified  in  product  or  inter-equipment  streams. 

The  material  and  energy  balance  subroutines  inte¬ 
grated  with  PACER  are  also  available  for  balance  calculations 
around  a  single  unit.  Therefore,  the  equipment  subroutines 
need  not  contain  material  and  energy  balance  calculations  as 
such. 

The  addition  of  the  enthalpy  balance  subroutine  to 
PACER  required  subroutines  to  calculate  dew  points,  bubble 
points,  qualities,  and  equilibrium  ratios  which  are  also 
available  to  the  user. 
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II.  REVIEW  OF  THE  LITERATURE 

In  the  chemical  engineering  field  such  executive 
programs  as  Kellogg ' s  "Flexible  Flowsheet" ( 8 ) ,  Shell's 
"Cheops",  IBM's  "Generalized  Interrelated  Flow  Simulation" 
(GIFS),  PACER(9)  and  SPEEDUP(21)  have  been  developed.  The 
literature  contains  many  papers  devoted  to  the  presentation 
of  some  of  these  and  other  similar  programs.  Some  similari¬ 
ties  and  differences  associated  with  these  executive  programs 
for  the  calculation  of  steady  state  material  and  energy  bal¬ 
ances  are  presented  in  subsequent  paragraphs.  The  general 
structure  around  which  each  of  these  programs  is  built  is 
three-phase : 

1.  an  executive  system  including  execution,  input  and  output 
subroutines 

2.  equipment  subroutines  to  effect  unit  calculations 

3.  engineering  and  physical  property  data 

It  is  this  first  phase  of  the  executive  program  which  is  so 
widely  discussed  in  the  literature.  Therefore,  some  time 
will  be  devoted  to  discussion  of  this  phase  in  more  detail. 

In  order  that  the  problem  can  be  readily  interpreted  by  the 
digital  computer,  the  flowsheet,  engineering  data,  and  physi¬ 
cal  property  data  must  be  encoded  numerically.  A  computational 
scheme  must  be  employed  and  recycle  loops  identified.  The 
following  discussion  presents  several  alternate  methods  pro¬ 
posed  for  these  requirements. 
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A.  Input  Subroutine 

Common  to  each  executive  system  is  some  form  of 
encoding  the  flow  diagram.  "SPEEDUP" ( 21)  uses  a  routine 
which  has  gone  one  step  further  than  most  systems  and  incor¬ 
porated  an  interpreter  into  the  data  input  routine.  Thus, 
the  data  encoding  the  flow  diagram  takes  a  form  familiar  to 
the  chemical  engineer  who  is  inexperienced  with  an  executive 
system.  As  an  example,  the  following  is  a  valid  statement  of 
input  data  for  "SPEEDUP": 

INPUT  2  OF  HEAT  EXCHANGER  14  IS  OUTPUT  4 
OF  PLATE  COLUMN  3. 

This  type  of  input  format  is  then  numerically  encoded  in¬ 
ternally  in  a  compact  form  similar  to  that  used  by  PACER. 

PACER  and  its  later  versions ( 9 , 22 , 23 )  use  a  process 
matrix  to  convey  the  information  normally  contained  in  a  flow 
diagram.  Using  the  process  flow  diagram  shown  in  Figure  III, 
the  process  matrix  is  shown  in  Table  I. 

The  first  element  in  a  row  is  the  equipment  number 
followed  by  the  equipment  subroutine  name.  The  remaining 
elements  comprise  a  list  of  input  streams  to  this  particular 
unit  (positive)  followed  by  output  streams  (negative)  from  it. 

In  lieu  of  this  process  matrix  Ravicz  and  Norman (14) 
use  an  association  matrix,  A,  where  (a^.)  =  1  if  a  stream 
joins  module  i  to  module  j  -  otherwise  (a^j)  =  0.  This  results 
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TABLE  I 


Process  Matrix  for  Process  Shown  in  Figure  III 


1  UNAME1 

2  UNAME2 

3  UNAME5 


1  2-3 

3  -  2  -  4  -  5 
5-6 


TABLE  II 


Association  Matrix  for  Process  Shown  in  Figure  III 


TABLE  III 

Naphtali's  Matrix  for  Process  Shown  in  Figure  III 


. 


-  *  " 
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Figure  III 

Example  Process  Flowsheet 
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in  an  (n  x  n)  matrix  where  ' n'  is  the  number  of  modules  or 
units.  Using  the  same  flowsheet  as  an  example  (see  Figure  III) 
the  association  matrix  is  shown  in  Table  II.  This  association 
matrix  does  not  include  feed  or  product  stream  information. 
However,  it  is  useful  for  the  location  of  recycle  loops (13). 

Another  variation  was  presented  by  Naphtali ( 12 ) . 

His  matrix,  which  encodes  the  flowsheet,  is  defined  as  A  where 
(a^j)  equals  one  if  stream  j  enters  unit  i,  equals  minus  one 
if  stream  j  leaves  unit  i,  and  otherwise  equals  zero.  Encod¬ 
ing  the  above  flowsheet  again,  yields  the  (n  x  m)  matrix  in 
Table  III  where  again  n  is  the  number  of  units  and  m  the  num¬ 
ber  of  streams  in  the  process. 

The  disadvantage  associated  with  the  two  latter 
methods  is  the  large  amount  of  storage  space  used  since  these 
matrices  are  usually  large  and  sparsely  filled. 

Stream  variables  and  equipment  parameters  are  stored 
in  assigned  matrices  in  the  executive  program  data  system. 

For  example,  PACER  stores  information  of  a  specific  stream  in 
a  matrix  row  thus  the  process  flowsheet  of  Figure  III  would  re¬ 
quire  a  matrix  of  six  rows  and  a  number  of  columns  depending  on 
the  number  of  components  involved. 

B .  Execution  Routine 

There  are  three  computational  schemes  used  to  approach 
the  calculation  of  steady  state  material  and  energy  balances  of 
a  process  with  arbitrary  recycle: 


. 
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1.  direct  or  unit  method (2 , 10 , 11 , 12 , 17 , 25 , 26) 

2.  sequential  calculations  assuming  unknown  inputs ( 3 , 8 , 9 , 
15,18,21,22,23)  (identical  to  the  manual  calculation  dis¬ 
cussed  previously) 

3.  sequential  calculation  until  a  recycle  stream  is  en¬ 
countered,  then  calculation  of  the  nests  by  direct 
method (13,14) 

1.  Direct  Method 

The  direct  method  is  employed  by  Rosen (17)  using 
the  method  initiated  by  Nagiev ( 10 , 11 )  for  handling  processes 
with  arbitrary  recycle.  It  is  necessary  to  know  the  component 
output  of  each  unit  as  a  general  function  of  the  component 
input . 

Using  the  Nagiev  method,  the  material  balance  for 
the  i ^  unit  and  the  kth  component  is (17): 

—  oi  i  •]  i  \  1 1  —  —  ...  “I-  (1  a  .  . ,  )  A  . ,  ... 

ilk  lk  i2k  2k  nk  lk 

-  a .  .  A  ,  =  g .  ,  (5) 

ink  nk  ^iok 

k  =  1,2,  ...  m  (m  components) 
i  =  1,2,  ...  n  (n  units) 

where 

^iok 
aijk 


fresh  feed  of  component  k  to  unit  i 

weight  fraction  of  component  k  entering  unit 

j  which  is  recycled  to  unit  i  (recycle  fraction) 


. 
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-  total  flow  of  component  k  to  unit  i  from 
all  n  units 


ijk 


weight  flow  of  component  k  going  to  unit  i 


n 


from  unit  j  ( A . 


ik 


j=0 


The  recycle  fractions  (aj_jk's)  are  functions  of 
process  conditions  and  other  components  in  the  system.  How¬ 
ever,  if  the  recycle  fractions  (a^j^'s)are  constant,  the  com¬ 
ponent  flow  rates  can  calculated  directly  from  the 

system  of  linear  algebraic  equations  (5)  given  the  fresh 
feeds  (giok's). 

But  in  multicomponent  separations,  for  an  example, 

any  one  component  may  appear  in  several  streams  (or  phases) 

flowing  from  the  same  unit.  Letting  symbols  r^*  sik'  *  *  * 

q . ,  and  y..,  3 . w..  be  these  stream  flows  and  phase  re- 

^ik  1 j i '  j i  j i  ^ 

cycle  fractions  respectively,  the  recycle  fraction  for  com¬ 
ponent  k  to  unit  j  from  unit  i  is: 


rik  sik  qik 

a...  =  (—  )y..  +  (—  )3..  +  ...  +  (— )w.. 

Dlk  ,  rDi  ,  Di  ,  Di 

ik  Aik  Aik 


(6) 


The  split  fractions  ( 


rik 

A  . ,  ' 
ik 


4ik 

'  A  . , 
ik 


)  for  the  p  streams  must 


be>  determined  from  the  nature  of  the  unit  and  process.  For 
example,  if  unit  i  were  a  distillation  column  r^k  might  be 
distillate  and  s  .  the  bottom  product  flow  rates  for  component 

k. 


, 
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The  phase  recycle  fractions  are  usually  fixed  and, 
given  the  fresh  feeds  to  the  process,  the  unknown  split 
fractions  are  assumed  (p  x  n  x  m  guesses)  and  the  recycle 
fractions  are  calculated  from  equation  (6) .  Now  it  is  a 
simple  matter  to  solve  the  n  simultaneous  linear  algebraic 
equations  for  the  component  feeds  to  each  unit  (A^)  from 
equations  (5) .  The  split  fractions  can  now  be  calculated 
from  the  unit  calculation.  An  iterative  technique  yields  a 
solution.  However,  this  method  does  not  take  advantage  of 
any  structure  of  the  network  that  might  simplify  the  calcula¬ 
tions  . 

2.  Successive  Substitution 

Another  approach  is  the  classical  chemical  engineer¬ 
ing  approach,  that  of  successive  substitution.  The  method 
is  to  proceed  sequentially  calculating  outputs  from  known, 
or  previously  calculated  inputs.  Unknown  inputs  are  assumed 
known  and  their  subsequent  calculated  values  are  used  for  the 
next  iteration.  This  procedure  is  repeated  until  the  two  most 
recent  values  of  all  assumed  stream  variables  are  equal  within 
some  predetermined  error.  (This  is  the  method  used  when  manu¬ 
ally  calculating  material  and  energy  balances  for  a  process.) 
Herein  lies  one  of  the  pitfalls  of  this  simple  method:  often 
convergence,  the  path  along  which  the  assumed  variables  ap¬ 
proach  the  solution,  is  assymptotic  and,  although  the  assumed 
variables  appear  to  have  converged,  actual  convergence  is  only 
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very  slow.  Cavette(2)  has  published  a  comprehensive  paper  on 
the  numerical  methods  of  solution  of  material  and  energy  ba¬ 
lances  for  recycle  processes.  In  this  review  convergence 
accelerators  for  this  method  are  discussed.  However,  conver¬ 
gence  can  be  hindered  by  such  techniques.  For  example,  when 
the  interaction  effects  between  components  are  large,  these 
convergence  "accelerators"  may  actually  impede  progress  to¬ 
wards  an  acceptable  solution. 

The  method  of  successive  substitution  also  involves 
a  sequence  of  calculation.  An  attempt  is  made  by  some  au¬ 
thors  (  1  ,  18  ,  19  ,  2  0  ,  21  )  to  select  a  sequence  of  calculation 
which  minimizes  the  number  of  parameters  which  must  be  as¬ 
sumed  by  selecting  an  "optimum"  sequence  of  calculation. 

Sargent (21)  employs  a  dynamic  programming  algorithm  in 
"SPEEDUP".  On  the  other  hand,  Rubin (18)  provides  an  algorithm 
based  on  systematic  interchanges  of  units  from  an  arbitrary 
sequence  of  units.  The  choice  of  the  units  to  be  interchanged 
at  any  stage  is  governed  by  the  properties  of  a  special  matrix. 
Unfortunately  only  local  optima  are  obtained  by  this  method. 

This  procedure  of  finding  the  path  of  calculation 
yielding  minimum  number  of  recycle  parameters  to  be  assumed 
is  not  necessarily  the  optimum  approach.  Sargent (21)  ex¬ 
presses  the  intention  of  extending  his  method  to  optimize  a 
weighted  sum  of  the  number  of  recycle  parameters  assumed  for 
a  particular  sequence  and  the  difficulty  which  these  para¬ 
meters  contribute  to  convergence.  The  goal  here  being  to 
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assume  the  parameters  which  are  most  insensitive  to  the  error 
associated  with  the  initial  guess. 

PACER  makes  no  attempt  to  find  an  optimum  sequence 

f 

of  calculation.  The  sequence  of  calculation  is  mainly  de¬ 
termined  by  scanning  in  the  order  listed  in  the  process  matrix. 
The  streams  to  be  assumed  during  the  trial  and  error  calcula¬ 
tions  may  be  specified  as  a  part  of  the  input  data  or  selected 
by  the  executive  program. 

3 .  Combination  of  Approaches 

The  third  computational  scheme  is  merely  a  combina¬ 
tion  of  the  two  previous  methods.  Calculations  are  carried 
out  by  calculating  physical  outputs  from  known  physical  in¬ 
puts  for  each  unit.  However,  when  a  recycle  loop  is  en¬ 
countered,  the  nest  is  identified  and  calculated  by  a  direct 
method.  Thus,  this  scheme  requires  a  method  for  locating  re¬ 
cycle  nests.  The  nests  are  calculated  when  all  inputs  to 
them  are  known. 

Ravicz  and  Norman (14)  employ  this  logic  for  cal¬ 
culating  recycle  processes.  The  nests  are  located  by  using 
an  "association  matrix",  A,  mentioned  in  the  discussion  of 
the  input  data  routine  and  a  method  for  location  of  cycles 
on  a  directed  line  graph (13).  The  elements  a^  of  AA  where 
A  is  an  integer  power,  equals  the  number  of  distinct  paths 
involving  (A+l)  nodes  going  from  node  i  to  node  j.  The 
square  of  the  association  matrix  contains  information  about 
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paths  involving  three  units.  Recycle  nests  are  located  by 

the  appearance  of  non-zero  elements  on  the  diagonal  of  a\ 

2 

Therefore,  considering  A  again  information  concerning  re¬ 
cycle  nests  involving  two  units  is  contained  in  the  non-zero 

2 

elements  on  the  diagonal  of  A  . 

The  nests  are  calculated  by  the  Newton-Raphson  tech¬ 
nique  for  solving  non-linear  simultaneous  equations.  Although 
this  requires  a  large  amount  of  computation  per  iteration, 
convergence  is  rapid  for  the  near  linear  case.  The  method  is 
outlined  below. 

Defining  X  as  a  vector  of  stream  flow  variables 
(m  component  flow  rates  and  the  stream  enthalpy  for  each  re¬ 
cycle  stream,  m  being  the  number  of  components) ,  the  multi¬ 
loop  problem  may  be  formulated  as  finding  the  roots  of  the 
function  <£  (X)  . 

Y_  =  <f>  (X)  =  R  -  X  (7) 

R.,  a  vector  of  stream  variables  equal  in  length  to  X,  is  the 
calculated  value  of  the  recycle  stream  variables  using  the 
vector  X  as  a  base  point.  Knowing  that  at  the  solution 
Y  =  0  the  desired  change  in  Y  required  to  effect  this  equal¬ 
ity  is 

AY  =  -Y  (8) 

The  problem  is  now  to  find  the  AX  that  results  in  this  de¬ 


sired  AY. 
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AX 


<k>  =  A-1  AY(k) 


(9) 


where  A  is  the  matrix  of  partial  derivatives  required  for 


this  technique  ( 


ax. 

1 

a  y  . 


,  i  =  1,2,  ...,  n+1,  j  =  1,2,  ...  n+1) . 


X 


n  =  m  for  single  loop  problem. 

(10) 


(k)  _  x(k)  +  AX(k) 


(superscript  k  denotes  the  iteration) 

Therefore,  assuming  a  vector  X^  as  a  base  point, 
the  process  is  evaluated  yielding  a  value  of  R 


4>(X(k))  =  Y(k) 


=  R(k>  X(k) 


(ID 


Making  a  small  positive  change  in  X^),  say  px  ^ ^  ,  the  pro- 

(k)  (k) 

cess  is  re-evaluated  yielding  a  value  for  4>  (X  +  DX  )  . 
The  matrix  of  partial  derivatives  is  constructed  by  finite 


difference 


<aij> 


(k) 


4>  (X.  (k)  +  DX.  (k)  )  -  (j)  (X.  (k)  ) 

l  l  l 


DX 


(k) 


(12) 


for  i  =  1 ,  ...  n+1 , 


j  =  1 ,  . . . ,  n+1 


The  set  of  simultaneous  linear  algebraic  equations  (9)  must 

(k) 

be  solved  for  AX  .  The  procedure  is  then  repeated 


X  (k+1)  =  x(k)  +  AX^ 


(13) 


Cavette(2)  discusses  modifications  to  this  by  the  introduction 
of  a  method  of  interpolation  into  this  equation. 


. 
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The  difficulty  associated  with  this  scheme  arises 
in  the  evaluation  of  the  partial  derivatives. 

There  is  a  possibility  that  the  strategies  outlined 
above  may  be  combined.  Since  direct  iteration  or  successive 
substitution  has  a  larger  radius  of  convergence  than  the 
Newton-Raphson  technique,  it  could  be  used  to  improve  an  ini¬ 
tial  guess.  Then  the  accuracy  of  the  answer  can  be  refined 
using  the  Newton-Raphson  method.  This  scheme  would  be  useful 
in  problems  which  involve  large  recycling  streams  where  con¬ 
vergence  of  the  direct  iteration  method  becomes  worse  as 
the  solution  is  approached.  Here  the  behavior  becomes  more 
linear  and  Newton-Raphson  iteration  would  work  well. 

Cavette(2)  reviews  most  of  the  numerical  methods 
presented  in  the  literature  for  solving  recycle  processes. 

It  is  the  most  comprehensive  paper  on  the  subject  to  date. 

Rinard  and  Ripps(15)  discuss  a  method  of  utilizing 
information  given  about  streams  other  than  fresh  feed  streams 
which  could  be  applied  to  executive  programs  with  logic  simi¬ 
lar  to  that  of  PACER.  They  advise  against  the  use  of  equipment 
subroutines  to  "back-calculate"  unknown  input  variables  from 
specified  output  variables.  But  rather,  through  the  use  of 
"controller"  subroutines,  the  feed  stream  variables  are  altered 
from  their  original  values  to  yield  desired  values  for  speci¬ 
fied  variables  in  output  streams.  The  material  and  energy 
balance  subroutines  developed  for  this  investigation,  as  in¬ 
dicated  previously  compute  unknown  input  stream  variables, 
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if  possible,  by  material  and  energy  balance  around  appropri¬ 
ate  units. 


24 


III.  THE  MATERIAL  AND  ENERGY  BALANCE 
COMPUTER  PROGRAM 

The  material  and  energy  balance  program  seeks  ba¬ 
lance  envelopes  around  one  or  more  units  in  a  process  in  an 
attempt  to  solve  for  unknown  input  variables  by  exploiting 
specified  output  variables.  Supplied  with  its  own  executive 
system  this  routine  could  solve  many  problems  alone.  How¬ 
ever,  integration  of  this  routine  into  the  PACER  logic  en¬ 
hances  the  power  of  both  programs.  In  a  subsequent  section 
the  integration  of  this  material  and  energy  balance  logic  in¬ 
to  PACER  is  presented  with  reference  to  flow  diagrams.  How¬ 
ever,  it  would  be  helpful  at  this  point  to  outline  in  brief 
the  format  of  the  data  storage  and  input.  A  brief  discussion 
of  the  handling  of  reactors  and  distillation  columns  will  pro¬ 
duce  an  understanding  of  the  interpretation  of  flowsheet 
data  by  the  integrated  program. 

A  detailed  discussion  of  the  material  and  energy 
balance  will  follow  with  specific  reference  to  the  subroutines 
involved  in  the  location  of  the  balance  envelope  and  in  the 
setup  and  solution  of  the  resulting  equations. 

A.  Input  Data  for  Integrated  Program 
1.  Summary  of  Input  Data  Cards 

Reference  is  made  to  Mosler's  thesis (9)  for  a  more 
detailed  description  of  the  input  data  and  its  format. 
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1.  Title  Card 

2.  Run  Control  Card  -  run  number  and  various  option  flags 
(A  new  option  flag  has  been  added  that  is  the  variable 
NEB.  If  NEB  is  one,  only  material  balance  calculations 
are  to  be  executed.  If  NEB  is  two,  then  the  energy  ba¬ 
lance  calculations  are  to  be  completed  also.  However, 
when  NEB  is  three,  the  energy  balance  calculations  are  to 
be  attempted  neglecting  pressure  correction.) 

3.  Dimension  Card  -  contains  the  dimensions  of  the  matrices 
and  vectors 

4.  Process  Matrix  Run  Control  Card 

5.  Process  Matrix  Vector  -  encodes  the  flow  diagram 

1.  KPM  (NEX,  1)  -  PACER  equipment  number 

-  NEX 

2.  NAME  (NEX)  -  equipment  subroutine  name  (blank  if  only 

the  material  and  energy  balance  routine 
is  to  be  used) 

3.  NEXEQN  (NEX)  -  equipment  number  positive  if  the  ba¬ 

lance  routine  is  to  be  called  before 
the  equipment  subroutine;  negative  if 
the  equipment  subroutine  is  to  be  called 
immediately  that  all  inputs  to  the 
equipment  NEX  are  known 

4.  KPM  (NEX,  N3)  -  associated  stream  numbers;  input 

streams  are  given  first  (positive)  and 
outputs  follow  (negative) (N3  =  2,3,  ...10) 
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6.  Equipment  Parameters  Control  Card  -  the  number  of  equip¬ 
ment  parameters  vectors  to  input 

7 .  Equipment  Parameters  Vector 

1.  EN  (NEN,  1)  -  PACER  equipment  number 

-  NEN 

2.  EN  (NEN,  2)  -  PACER  external  equipment  flag 

3.  EN  (NEN,  K3)  -  other  pieces  of  information  determined 

by  the  equipment  subroutine 
(K3  =  3 ,  ...  ,  NELMAX) 

8.  Equipment  Control  Parameters  Control  Card  -  the  number  of 

equipment  control  parameters  vectors  to  input 

9.  Equipment  Control  Parameters  Vector 

1.  ENC  (NENC,  1)  -  PACER  equipment  number 

-  NENC 

2.  ENC  (NENC,  K3)  -  other  pieces  of  information  deter¬ 

mined  by  the  equipment  subroutine 
(K3  =  2,  ...  ,  NECLMX) 

10.  Stream  Variables  Control  Card  -  the  number  of  stream 
variables  matrix  vectors  to  input 

11.  Stream  Variables  Matrix  Vector  -  contains  flow  variables 

1.  SN  (NSN ,  1)  -  PACER  stream  number 

-  NSN 

2.  SN  (NSN,  2)  -  PACER  stream  flag 

-  0  if  stream  is  an  inter-equipment  stream 

-  1  if  stream  is  a  feed  stream 


-  2  if  stream  is  a  product  stream 
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3.  SN  (NSN,  3)  -  total  mass  flow  rate 

4.  SN  (NSN,  K3)  -  the  next  NOCOMP  entries  are  mass 

fractions  of  the  components  in  the 
stream;  NOCOMP  is  the  number  of  com¬ 
ponents  in  the  system 
(K3  =  4 ,  ...  ,  NOCOMP  +  3) 

5.  SN  (NSN,  K3)  -  these  NOCOMP  entries  are  component- 

mass  flow  variables  (K3  =  NOCOMP  +  4, 

...  ,  2  x  NOCOMP  +  3 ) 

6.  SN  (NSN,  2  x  NOCOMP  +4)  -  temperature  in  degrees 

rankine  in  stream  which  is 
an  actual  process  stream 

-  10000;  if  stream  is  a 
dummy  feed  or  product  stream 
to  a  reactor 

-  heat  flow  if  the  stream  is 
of  zero  mass  and  represents 
a  heat  flow 

12.  Stream  Control  Variable  Control  Card  -  the  number  of 
stream  control  variables  vectors  to  input 

13.  Stream  Control  Variables  Vector  -  if  stream  is  not  a 
dummy  stream  or  heat  flow 

1.  SNC  (NSNC ,  1)  -  PACER  stream  number 

-  NSNC 


2. 


SNC  (NSNC,  2)  -  PACER  stream  flag 
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3.  SNC  (NSNC,  3)  -  pressure  (psia) 

4.  SNC  (NSNC,  4)  -  the  number  of  components  in  the  stream 

(NCOMP )  (NCOMP  <.  NOCOMP) 


5. 

SNC 

(NSNC,  5) 

-  quality  of  the 

stream 

6. 

SNC 

(NSNC,  6) 

-  bubble  point  (° 

R) 

7. 

SNC 

(NSNC,  7) 

-  dew  point  (°R) 

8. 

SNC 

(NSNC,  8) 

-  vapor  ratio  of 

stream 

14.  Stream  Variables  Test  Vector  Control  Card 

15.  Stream  Variables  Test  Vector  -  allowable  fractional  error 
for  each  element  of  the  SN  vector 

16.  Stream  Control  Variables  Test  Vector  Control  Card 

17.  Stream  Control  Variables  Test  Vector 

18.  Preferred  Stream  Vector  Control  Card  -  the  number  of 
preferred  streams  to  be  assumed 

19.  Preferred  Stream  Vector 

1.  KPS  (I)  -  stream  number  of  the  streams  to  be  assumed 

in  the  event  of  trial  and  error  solution; 
the  first  element  will  be  assumed  first 
(1=1,  ...  ,  NOKPS ) 

20.  Vector  of  Components  which  are  not  to  be  used  for 
Component  Balances  -  length  of  vector  appears  on  run 
control  card 

21.  Component  Parameters  Control  Card  -  the  number  of  com¬ 
ponents,  length  of  a  component  vector,  reference  tempera¬ 


ture 


' 
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22.  Component  Parameters  Vector  -  contains  physical  property 
data 


1. 

CMPROP 

(N,  1) 

-  Latent  Heat  of  Vaporization  at  the 

Normal  Boiling  Point  (BTU/LB) 

2. 

CMPROP 

(N,  2) 

-  Normal  Boiling  Point  (°R) 

3. 

CMPROP 

(N,  3) 

-  Heat  Capacity  of  Gas  at  one  atm 

(BTU/LB  OR)  or  first  constant  in  heat 

capacity  equation 

4. 

CMPROP 

(N,  4) 

-  Second  constant  times. 100 

5. 

CMPROP 

(N,  5) 

c: 

-  Third  constant  times  10 

6. 

CMPROP 

(N,  6) 

-  Heat  capacity  of  liquid  (BTU/LB  °R) 

7. 

CMPROP 

(N,  7) 

-  Vapor  pressure  in  psia  at  reference 

temperature 

8. 

CMPROP 

(N,  8) 

-  molecular  weight 

9. 

CMPROP 

(N,  9) 

-  critical  temperature  (°R) 

10. 

CMPROP 

(N,  10) 

-  critical  pressure  (psia) 

The  stream  variables  must  appear  in  mass  units,  mass 
fraction  or  degrees  Rankine. 

Originally  in  the  PACER  logic  a  stream  was  either 
completely  knowni  or  unknown,  calculated  or  not  calculated. 
Therefore,  the  stream  was  simply  flagged  as  such.  All  feed 
streams  to  the  process  had  to  be  totally  known.  With  the 
extension  to  the  PACER  program  unknown  flow  variables  are 
flagged  as  such  by  a  negative  number  in  the  appropriate  ele¬ 
ment  of  the  SN  or  SNC  stream  vector.  Totally  unknown  stream 
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vectors  require  only  that  the  stream  number  be  specified. 
Elements  three  through  NSLMAX  can  be  left  as  blank  on  the  in¬ 
put  card  and  DREAD  will  insert  negatives  in  these  elements. 
However,  in  order  that  zeros  be  meaningful  to  DREAD  partially 
specified  stream  vectors  must  have  all  elements  completed  in¬ 
cluding  negative  numbers  for  unknown  elements. 

If  LCOMP,  the  length  of  the  CMPROP  matrix  rows, 
is  zero  the  CMPROP  matrix  will  not  be  read. 

2 .  Adapting  the  Flowsheet  for  PACER  Use 
Method  of  Handling  Reactors 

A  dummy  feed  and  product  stream  must  be  supplied 
when  considering  reactors.  The  introduction  of  just  a  dummy 
product  stream  produces  negative  flow  variables,  which  the 
program  interprets  as  representing  an  unknown.  These  dummy 
streams  need  only  be  considered  when  using  the  balance  routine 
for  component  balances.  They  will  not  appear  in  an  overall 
mass  balance  since  their  total  mass  flows  are  equal.  These 
streams  are  flagged  as  dummy  streams  by  entering  10000.  in  the 
element  of  the  stream  vector  normally  allotted  to  temperature. 
Stream  and  flowsheet  data  for  the  unit  shown  in  Figure  IV 
might  be  encoded  as  shown  in  Table  IV  for  usage  with  PACER. 

The  reaction  may  be  component  one  and  two  reacting  to  form 
component  three.  Thus,  only  component  three  would  appear  in 
stream  2,  the  dummy  feed  stream.  Similarly  only  the  reactants 
appear  in  the<  dummy  product  stream. 
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Figure  VI 

Representation  of  a  Reactor  on  a 
Process  Flowsheet 
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TABLE  IV 

Example  Reactor  Data  Representation 


1.  Process  Matrix 

1UNAME6  -1002  12-3-4  -5 

2.  Stream  Variables  Matrix 

1. 

2. 

3. 

4. 


1. 

1000. 

.5 

.5 

0. 

500. 

500. 

0. 

500 

1. 

-1. 

0. 

0. 

1. 

0. 

0. 

-1. 

10000 

2. 

-1. 

-1. 

-1. 

0. 

-1. 

-1. 

0. 

10000 

2. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

-1 

2. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1. 

-1 

5 
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In  order  that  the  reactor  subroutine  UNAME6,  be 
called  only  stream  1  must  be  totally  known.  Since  NEXEQN  (1) 
is  negative  the  material  and  energy  balance  routine  will  not 
be  called  before  the  equipment  subroutine,  UNAME 6 .  Stream  4 
represents  a  heat  flow  and  thus  is  zero  mass.  The  element 
usually  allotted  for  temperature  in  this  vector  will  contain 
the  heat  generation  within  the  reactor  in  BTU  due  to  the  re¬ 
action  . 

Method  for  Handling  Distillation  Column 

If  a  unit  such  as  a  distillation  column  is  involved 
in  the  process  (see  Figure  V-a) ,  streams  1,  7  and  4  would  have 
to  be  known  before  the  unit  could  be  calculated  by  the  PACER 
equipment  subroutine  if  it  were  treated  as  three  separate  units. 
However,  within  certain  specifications  streams  4  and  7  need  not 
be  totally  known.  Therefore  the  unit  is  represented  as  shown 
in  Figure  V-b.  The  stream  flows  of  7  (if  desired)  and  4  can 
be  calculated  internal  to  the  unit  calculation  and  stored  in 
appropriate  vector  elements.  Stream  10  represents  a  stream 
of  zero  mass  having  a  minus  one  (-1)  in  the  last  element  if 
the  heat  input  to  the  column  is  unknown.  This  represents  the 
total  heat  flow  from  the  column  as  a  result  of  the  reboiler, 
the  overhead  condenser  and  (if  required)  heat  losses.  Thus, 
although  the  unit  can  be  involved,  in  a  material  balance  before 
it  has  been  calculated,  it  cannot  be  used  in  an  energy  balance 
to  solve  for  some  unknown  other  than  this  unknown  heat  flow. 
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Figure  V  -  a 


Figure  V  -  b 

Representation  of  a  Distillation  Column 


on  a  Process  Flowsheet 
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The  heat  flow  is  calculated  by  the  equipment  subroutine  if 
necessary.  Note  the  heat  flow  can  be  negative.  However,  if 
minus  one  (-1)  appears  in  the  last  element  of  a  zero  mass 
stream  then  the  heat  flow  is  interpreted  as  unknown.  If 
there  is  doubt  as  to  the  direction  of  the  heat  flow,  it  is 
desirable  to  make  the  related  stream  a  product  stream  and  it 
will  become  a  negative  number  if  the  direction  assumed  is  wrong. 

3 .  Restrictions  Imposed  by  PACER 

Since  the  dimensions  of  the  matrices  are  fixed,  the 
number  of  streams  and  equipments  to  be  numbered  is  restricted. 
All  stream  numbers  must  be  positive  and  less  than  sixty-one. 
Similarly  all  equipment  numbers  must  be  positive  and  less  than 
thirty-one.  If  numbers  in  excess  of  these  are  to  be  used  the 
dimension  statements  must  be  increased  in  size.  The  lengths 
of  the  stream  variables  vectors  (SN) ,  stream  control  variables 
vectors  (SNC) ,  equipment  parameters  vectors  (EN) ,  and  equip¬ 
ment  control  parameters  vectors  (ENC)  are  fixed.  Because  the 
length  of  the  stream  variables  vector  is  twenty,  PACER  is  re¬ 
stricted  to  the  analysis  of  an  eight  component  system.  How¬ 
ever,  storing  both  component  flows  and  total  flows  with  mass 
fractions  is  repetitious  and  one  or  the  other  can  be  discarded 
thus  increasing  the  allowable  number  of  components  to  sixteen 
without  changing  the  dimensions  of  the  matrices.  Similarly 
the  dimensions  of  the  process  matrix  limit  the  number  of 
streams  associated  with  any  one  equipment  to  nine. 
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Virtually  all  of  the  available  32K  core  storage  of 
the  IBM  7040  was  utilized  with  the  integrated  program.  With 
the  introduction  of  larger  problems  and  more  sophisticated  equip¬ 
ment  subroutines  a  chaining  technique  will  have  to  be  used. 

This  is  the  method  used  at  McMaster  University  during  the  simu¬ 
lation  of  a  Sulphuric  Acid  Plant (23). 

B .  Integration  of  the  Balance  Routine  into  the  PACER  Logic 

The  process  matrix  discussed  briefly  in  the  section 
reviewing  the  literature  and  in  the  previous  section  encodes 
the  flow  diagram.  Reiterating  the  basic  rule  of  calculation, 
an  equipment  subroutine  is  used  to  calculate  physical  outputs 
from  physical  inputs  for  all  units.  The  status  of  calculation 
of  each  stream  and  equipment  is  contained  in  the  KSFLAG  and 
KEFLAG  vectors  respectively.  Initially  both  are  set  to  zero. 

Any  totally  known  streams  are  flagged  greater  than  zero  by  the 
subroutine  SCAN.  Product  streams  are  also  flagged  greater 
than  zero  since  they  are  not  involved  in  the  calculation  of 
the  process  with  PACER. 

The  process  matrix  (KPM)  is  scanned  to  determine  if 
any  unit  has  all  its  input  streams  flagged  known  (see  Figure 
VI) .  If  such  a  unit  is  found  the  equipment  subroutine  is 
called  and  the  unit  calculation  is  executed.  Upon  completion 
of  this  step  both  this  unit  and  its  output  streams  are  flagged 
known.  Scanning  of  the  process  matrix  is  continued  until  all 
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Figure  VI  -  Flow  Diagram 
Illustrating  the  Logic  of 
the  Integrated  Program 
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streams  and  equipments  are  flagged  known  or  until  no  more  cal¬ 
culations  can  be  made.  Unless  all  streams  had  been  calculated 
this  implied  recycle  loops  are  present.  Previously,  PACER 
resorted  to  trial  and  error  calculation  by  assuming  unknown 
input  streams  first  one,  two  then  three  at  a  time  if  necessary. 
However,  with  the  material  and  energy  balance  routine  intro¬ 
duced  into  the  executive  system,  the  stream  variables  matrix 
(SN)  is  now  examined  for  information  given  about  any  product 
or  inter-equipment  stream.  If  such  information  exists,  a 
suitable  balance  envelope  containing  one  or  more  units  will 
be  found  and  material  and  energy  balance  calculations  will  be 
attempted.  If  the  balance  calculation  is  successful  and  some 
computation  is  completed,  then  the  process  matrix  is  scanned 
again  to  see  if  any  more  equipments  can  now  be  calculated. 

This  cycle  is  repeated  until  no  more  calculation  can  be  com¬ 
pleted  by  the  equipment  subroutines  or  by  material  and  energy 
balances  around  one  or  more  units. 

If  there  are  still  some  unknown  streams  and  equip¬ 
ments  implying  the  presence  of  recycle,  an  iterative  trial 
and  error  scheme  is  used  to  pursue  a  solution.  A  list  of  un¬ 
known  streams  (KUS)  is  formed  with  the  preferred  streams  from 
KPS  vector  at  the  head  of  this  list.  First  these  streams 
are  assumed  known  one  at  a  time,  then  two  at  a  time  and  final¬ 
ly  three  at  a  time.  The  problem  cannot  be  so-lved  by  PACER  if 
the  order  of  recycle  is  in  excess  of  third  order.  Then  the 
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assumed  known  stream  or  streams  are  temporarily  flagged  greater 
than  zero,  the  process  matrix  is  examined  to  see  if  any  more 
equipments  can  be  calculated.  If  some  units  can  be  calculated 
and  if  the  assumed  inputs  are  to  be  calculated  outputs  of  the 
equipments  which  can  now  be  calculated,  then  trial  and  error 
calculations  are  commenced.  If  not,  then  a  new  stream  or  set 
of  streams  is  taken  from  the  unknown  stream  vector  and  the 
search  repeated. 

When  a  set  of  streams  has  been  assumed,  the  result¬ 
ing  equipments  which  can  now  be  calculated  form  the  KE2  list. 
All  units  which  are  unnecessary  to  the  recycle  calculations 
such  as  branch  units  are  removed  from  this  list. 

The  value  of  each  assumed  stream,  which  is  calculated 
as  an  output  of  a  unit  involved  in  the  recycle  loop,  is  used 
for  the  next  iteration.  This  is  repeated  until  each  stream 
variable  converges  within  some  specified  percentage  error. 

This  has  been  changed  from  the  original  PACER  program  which 
employed  the  absolute  error  criterion  for  convergence. 

Referring  to  Figure  VI,  before  an  equipment  sub¬ 
routine  is  called,  material  and/or  energy  balances  can  be 
effected  if  this  is  requested  in  the  input  data  as  discussed 
in  the  previous  section.  Then,  if  an  equipment  subroutine 
exists,  it  can  be  called  to  complete  the  unit  calculation. 

If  all  output  streams  from  a  particular  unit  are  known  and 
the  material  and  energy  balance  routine  is  to  be  used  to  cal- 
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culate  that  unit,  it  is  not  called. 

Reiterating  the  above  discussion  with  reference  to 
specific  subroutines,  the  calling  sequence  is  shown  in  Figure 
VII . 

After  the  input  phase  of  the  program  involving  sub¬ 
routines  DREAD,  DPRINT ,  and  so  on,  the  calculation  phase  is 
entered  by  calling  subroutine  MAJOR  from  the  main  calling  rou¬ 
tine,  PACE.  MAJOR  zeros  all  stream  and  equipment  flags  then 
calls  on  subroutine  SCAN  to  flag  certain  streams  or  equipments. 
For  example,  feed  streams  are  flagged  to  plus  seven  (7)  if 
totally  known  and  product  streams  to  plus  ten  (10) .  MAJOR  now 
scans  the  process  matrix  attempting  to  find  a  unit  with  all  in¬ 
put  streams  flagged  known.  If  such  an  equipment  is  found, 
then  subroutine  EQUIP  is  called.  Here  it  is  determined  whether 
the  balance  routine  need  be  called,  or  the  equipment  subrou¬ 
tine  or  both.  Since  the  unit  around  which  the  balance  is  to 
be  performed  is  known  the  first  subroutine  of  the  balance 
routine,  BALNCE ,  is  bypassed.  Upon  completion  of  the  unit 
calculation  control  is  returned  to  MAJOR  and  the  process 
matrix  scan  is  continued.  If,  when  no  unit  can  be  located 
with  all  its  inputs  known,  there  are  still  some  equipments 
not  flagged  known,  MAJOR  examines  output  streams  for  some 
given  information  (that  is  inter-equipment  streams  or  pro¬ 
duct  streams  flowing  from  units  still  flagged  as  unknown) . 

MAJOR  transfers  control  to  subroutine  BALNCE  if  some  are  located. 
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Figure  VII  -  Flow 
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This  subroutine  attempts  to  locate  a  balance  envelope  which 
permits  calculation  of  unknown  input  variables.  Calculation 
of  some  variables  in  the  balance  routine  results  in  the  trans 
fer  of  control  to  subroutine  MAJOR.  Scanning  of  the  process 
matrix  in  an  attempt  to  effect  sequential  calculations  of 
equipments  is  repeated.  However,  if  this  attempt  to  find  a 
balance  envelope  fails  or  if  no  output  variable  information 
is  given,  MAJOR  resorts  to  trial  and  error  attempts  at  a  solu 
tion.  Control  is  transferred  to  GUESS1.  GUESS1  temporarily 
assumes  certain  streams  known  by  flagging  them  greater  than 
zero,  All  possible  combinations  of  the  unknown  streams  are 
assumed  known  first  one,  then  two  and  finally  three  at  a  time 
GUESS1  calls  GUESS2  to  examine  the  list  of  unknown  equipments 
in  search  of  a  list  of  units  which  can  now  be  calculated  and 
which  have  all  assumed  known  input  streams  as  calculated  out¬ 
put  streams.  When  a  possible  list  of  equipment  is  found,  sub 
routine  SETUP  is  called  upon  to  do  the  bookkeeping  for  the 
trial  and  error  calculations.  Control  is  returned  to  MAJOR 
and  the  whole  cycle  repeated  upon  convergence  of  the  calcula¬ 
tions  if  any  equipments  are  still  flagged  unknown. 

There  are  three  possible  exits  from  the  trial  and 
error  calculational  loop: 

1.  trial  and  error  calculations  converged  within  the  speci¬ 
fied  number  of  loops 

all  possible  combinations  of  streams  assumed  and  process 
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appears  to  be  greater  than  third  order  recycle 
3.  trial  and  error  calculations  did  not  converge  within  the 
specified  number  of  loops. 

C .  Logic  of  Material  and  Energy  Balance  Routine 


As  indicated  previously,  this  work  deals  with  the 


use  of  material  and  energy  balances  around  one  or  more  units 
in  an  attempt  to  calculate  unknown  inputs  using  some  specified 
output  variables.  The  first  problem  which  arises  is  that  of 
location  of  a  suitable  balance  envelope  to  compute  unknown 
inputs.  This  is  attempted  by  subroutine  BALNCE  (see  Figure 
VII) .  Subroutine  BALNCE  will  be  discussed  in  more  detail  sub¬ 
sequently  . 


For  any  balance  envelope  and  the  streams  associated 


with  it  the  number  of  linearly  independent  material  balance 
equations  which  can  be  written  are  equal  in  number  to  the 
number  of  components  involved.  In  addition,  an  energy  balance 
equation  can  supply  an  additional  relationship.  In  general 
terms : 

1.  Overall  Mass  Balance 


N 

l  S . *SN ( i , 3 ) 
i=l  1 


0 


(14) 


where 


N 


the  number  of  streams  involved  in  the  balance 


sign  function  (always  known) 
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=  +1  if  i  is  an  input  stream  to  the  balance 

envelope,  -1  otherwise 

SN(i,3)  =  overall  mass  flow  rate  of  stream  i 

2.  Component  Mass  Balance 

N 

l  S . *SN ( i , 3 ) *SN ( i , j  +  3 )  =  0  (15) 

i=l  1 

or 

N 

l  S . *SN (i, j+3+N0C0MP)  =  0 

i=l  1 


j  =  1 ,  2 ,  ...  ,  NOCOMP 

where 

SN(i,j+3)  =  mass  fraction  of  component  j 

SN ( i , j+3+N0C0MP)  =  component  mass  flow  rate 
3.  Energy  Balance 

N  NOCOMP 

l  l  S. *SN(i,3) *SN(i, j+3) *H.  =  0  (16) 

1=1  j=l  1  3 

or 


N 

l 

i=l 


NOCOMP 


j=l 


S . *SN(i, J+N0C0MP+3) *H .  =  0 

i  j 


where 


Hj  =  enthalpy  of  pure  component  j  at  the  tempera¬ 
ture  and  pressure  of  stream  i 
Referring  to  equations  14,  15  and  16,  the  sign 
function  (S^)  is  always  known.  However,  any  of  the  other  vari¬ 
ables,  that  is,  overall  mass  flow  rate,  component  mass  flow 
rate,  the  mass  fraction  and  the  enthalpy  may  be  unknown. 


-  a*.  - 


©  iwierf^o  I>  49qoi9vc:o 

aonslsa  8sbM  inanoqinoO 

<ai)  o  -  (CH,i>«w<e.i>ii8*i«  j  f 


' 


t  ^nsnoqmoD  *o  itoWoa**  aafim  - 

.  .  vr^x  -s  /  qMODOM+  6+ 1  *  ^ ^ 

wol*  aafi/iT  in-moqmoo 


.  H*  ( t+*MGOOVl+t» , X .  ;k  ,  U 


_6„qra9i  erf*  C  inanoqmoo  axuq  *>  W  ’  ‘  tH 

npi8  9rf*  ,91  bne  a  I  ,U  anolJBupa  o* 
itisv  .isriJo  9rf*  lo  Y«  .—OH  -on*  «Y-Xb  .1  «**> ^ 


46 


For  the  calculation  of  the  enthalpy  of  a  stream, 
mixing  effects  are  neglected.  The  enthalpy  of  a  solution  at 
a  given  temperature,  pressure  and  composition  is  given  rela¬ 
tive  to  the  pure  components  at  a  reference  temperature  and  at 
their  saturation  pressures.  Where  the  normal  state  of  aggre¬ 
gation  of  any  component  at  this  reference  temperature  and  one 
atmosphere  is  gaseous,  the  reference  pressure  is  taken  as 
such (6) . 


H . 
1 


NOCOMP 

y  X' .H.  (X1 .  =  mass  fraction)  (17) 

j=l  ^  D  J 


for  p  >_  bubble  point  pressure 


T 

H.  =  /  C  .  dT 

-1  Tref  ^1^ 


Po  . 

/  3 


o 


9H  . 

<— 4 


3P 


Tref 


P 

dP  +  / 
o 


9H  . 


(— l)t 
9P 


dP 


or  for  p  <_  dew  point  pressure 


H  . 
D 


Po.  9H . 

-  /  3  <— J L>Tref  dP  +  /  C*„  .  dT 

3  o  9P 


Tref  PV3 


P  9H  . 

+  /  (— 1)  dP 

o  9P 


(19) 


A  . 
J 


PO  . 
J 


latent  heat  of  vaporization  of  component  j 
at  reference  temperature,  Tref 
saturation  pressure  of  pure  component  j  at 
reference  temperature  Tref 


p  =  pressure  of  stream  i 


(18) 
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temperature  of  stream  i 

zero  pressure  heat  capacity  of  vapor  j 

heat  capacity  of  liquid  j 


The  pressure  correction  term  in  the  above  equations 
is  evaluated  using  an  equation  of  state.  From  thermodynamics 


dH  =  dU  +  vdP  +  Pdv  (20) 

dU  =  TdS  -  Pdv  (21) 

dH  =  TdS  +  vdP  (22) 

From  the  Maxwell  Relations: 

as  3v 

(— )T  =  -  (—  )p  (23) 

ap  aT 

Therefore  combining  equations  22  and  23: 

av 

dH  =  vdP  -  T  ( — )  dP  (24) 


Using  Van  der  Waal's  equation  of  state  for  example  purposes: 

a 

(P  +  — )  (v  -  b)  =  RT  (25) 

v 

From  the  chain  rule  using  T  =  f(P,v): 


av 

"  ap 

<—>p  dP 

=  — 

( — )  dv 

V 

aT 

_ 9T  P 

T 

Substituting  in  (24)  using  (26): 


(H*  -  H)  =  RT  -  pv  +  / 


v 


3P 

p  -  T  ( — ) 
3T 


v 


dv 


(27) 
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From  equation  (26) : 


3P 
(— ) 
3T 


v 


Therefore : 


3  RT 

—  ( - 


3T  v  -  b 
R 


2* 

v 


v-b 


(28) 


(29) 


(H*  -  H) 


v  RT 

RT  -  pv  +  /  ( P  -  - )  dv 

00  v-b 


(30) 


v  a 


=  RT  -  pv  +  /  -  — 7T  dv 


~T 

CO  V 


(31) 


=  RT  -  pv  + 


v 


(32) 


However,  in  order  to  evaluate  this  pressure  correction  term, 
the  specific  volume  must  be  evaluated.  This  can  be  done  using 
the  Newton-Raphson  method  for  finding  the  root  of  equation  25. 


a 

(P  +  -y)  (V  - 

b)  -  RT  =  0 

(33) 

V 

a 

ab 

Pv  -  Pb  +  - 

-  RT 

(34) 

V 

V 

3F  a 

2ab 

<  1 

ll 

i 

<  1 
M 

3 

V 

(35) 

The  constants  a  and  b  are  calculated  from  the  critical  pro¬ 
perties  which  part  of  the  input  data.  The  following  iterative 

technique  is  used  to  solve  for  the  specific  volume. 

F  (vo) 


v 


v 

o 


F ' (vo) 


(36) 
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A  more  sophisticated  equation  of  state  might  be  desirable  in 
some  cases.  However,  a  sophisticated  equation  of  state  with 
many  constants  can  lead  to  large  errors  in  derivatives.  An 
equation  like  the  Redlich-Kwong  equation  is  perhaps  the  answer. 

When  a  stream  is  in  two-phase  flow,  the  unit  mass 
enthalpies  of  the  liquid  and  vapor  component  phases  are  evalu¬ 
ated  separately  and  added.  Defining  V  as  the  vapor  ratio  or 
the  pound  moles  of  vapor  per  pound  mole  of  mixture  of  stream  i 
in  Figure  VIII: 


V  +  L  =  F  =  1 


z  .  =  y  . V  +  x  .L 

3  3  3 


(37) 

(38) 


y^v 


ratio  of  mass  of  component  j  in  vapor  phase 


y  . V  +  x  .L 

33  to  mass  flow  of  component  j  in  stream  F. 


where 


Xj  =  mole  fraction  of  component  j  in  the  liquid 
phase 

y  =  mole  fraction  of  component  j  in  the  vapor 
phase 

Zj  =  mole  fraction  of  component  j  in  the  stream 


LlL 


y  .  V  +  x  .  L 
*  3  3 


YjV 

x  .  L 
1  .. 


Y-iV 

-V  +  i 

x  .L 
3 


(39) 
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V 


Fiqure  VIII 

Representation  of  Two  Phase  Flow 


. 


■ 
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Since  K 


h. 

x  . 


y^v 


Defining  RATIO  = 


y  .  V  +  x  .  L 
D  D 

K  .V 
1-V 

R  =  - 


K  .V 
1-V 


K  .V 

T-v  +  1 


RATIO 


RATIO  +  1 


(40) 


(41) 


Using  a  method  for  calculating  the  equilibrium 
ratio  which  is  independent  of  concentration  and  only  a  func¬ 
tion  of  the  pure  component  and  the  temperature  and  pressure 
of  the  stream,  RATIO  can  be  evaluated. 


where 


H . 
l 


Z  '  . 

D 

vapor  liquid 

contribution  contribution 


RHtt.  +  (1-R)H_  . 

_  V;j  Lj 


(42) 


Z'j  =  the  mass  fraction  of  component  j  in.  stream  i 
=  the  enthalpy  of  stream  i  per  unit  mass 
Htt.  =  the  enthalpy  of  pure  component  j  in  the 

vj 

vapor  phase  per  unit  mass  at  the  pressure 
and  temperature  of  the  stream  i 
HT  .  =  the  enthalpy  of  pure  component  j  in  the 

liquid  phase  per  unit  mass  at  the  pressure 
and  temperature  of  the  stream  i 
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However,  since  there  may  not  be  an  a  priori  know¬ 
ledge  of  the  quality  and  the  quantity  V,  in  most  cases  it  will 
be  desirable  to  divide  a  two-phase  stream  into  two  separate 
streams  on  the  flowsheet.  A  pseudo-unit  can  be  introduced 
to  split  the  two-phase  stream  if  desired.  This  will  relieve 
the  equipment  subroutine  of  the  unit  into  which  this  two-phase 
stream  flows  of  calculating  the  compositions  of  the  two  phases 
since  the  vapor  and  liquid  compositions  will  be  stored.  Repre 
senting  a  two-phase  stream  by  one  stream  on  the  flowsheet  al¬ 
lows  for  storage  of  only  the  overall  composition  of  the  stream 

If  the  quality  of  a  stream  is  specified  then  the 
quantity  V  must  also  be  specified  if  the  stream  is  in  two 
phase  flow.  Subroutine  QUAL  calculates  both  the  quality  and 
the  vapor  ratio,  V,  using  equilibrium  ratios  and  the  overall 
stream  composition. 

The  dew  point  and  bubble  point  temperatures  of  a 
stream  are  calculated  after  the  composition  and  pressure  of 
the  stream  is  determined.  The  quality  is  calculated,  if  it 
is  unknown,  after  the  dew  point  and  bubble  point  calculations 
have  been  completed.  If  the  temperature  of  a  stream  is  less 
than  the  bubble  point  temperature,  then  the  quality  is  set  to 
zero.  If  it  is  greater  than  the  dew  point  temperature  the 
quality  is  set  to  one.  Otherwise  a  flash  calculation  is  per¬ 
formed  to  determine  the  quality  of  the  stream.  This  will  be 
discussed  further  when  subroutine  QUAL  is  presented. 
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The  quality,  temperature  and  pressure  of  a  stream 
must  be  known  as  well  as  its  composition  before  the  enthalpy 
of  a  stream  can  be  determined  by  the  subroutine  available  to 
the  balance  routine.  An  additional  equation  in  solving  for 
unknown  mass  flow  variables  can  be  supplied  by  the  energy 
balance  but  all  enthalpies  and  heat  flows  involved  must  be 
known  so  as  not  to  introduce  another  unknown.  Since  the  stream 
enthalpy  is  assumed  to  be  a  linear  combination  of  pure  compo¬ 
nent  enthalpies  at  the  temperature  and  pressure  of  the  stream, 
the  resulting  energy  balance  equation  is  linear  in  the  mass 
flow  variables.  The  mass  balance  equations  are  likewise 
linear . 


More  often  the  case  is  that  of  solving  the  linear 
mass  balance  equations  then  solving  for  an  unknown  temperature 
of  some  stream  involved  in  the  balance.  The  energy  balance 
equation  is  however  non-linear  in  temperature  and  pressure. 

The  unknown  stream  variable  (temperature)  is  obtained  by  using 
the  following  iterative  method: 


(n+1) 

x 


x 


(n) 


f (x(n)  )  (x(n)  -  x(n_1) ) 
f  (x(n)  )  -  f  (x(n 1)  ) 


(43) 


where  the  problem  is  to  find  x  such  that  f (x)  =  0. 

With  reference  to  Figure  IX  suppose  the  unit  enthal¬ 
pies  of  streams  1,  3  and  4  are  known  with  respect  to  a  speci¬ 
fied  reference  temperature. 
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BALANCE. 


Figure  IX 

A  Balance  Envelope  and  Associated  Streams 
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NOCOMP  NOCOMP 

HEAT  =  -S,  T  X'.H.  '  +  S-  y  X'.H. 

1  j=l  =>  J  3  j=l  3  D 


NOCOMP  . 

+  S  l  X'  H  W  (44) 

j  =  l  3  3 

where  H^  ^  is  the  enthalpy  of  pure  component  j  at  the  tem¬ 
perature  and  pressure  of  stream  i  relative  to  a  specified  re¬ 
ference  temperature. 

(2) 

H  is  the  enthalpy  of  stream  2. 

The  problem  is  to  find  T 2  such  that: 

f  {T 2 )  =  H(2)  "  HEAT  =  0  (45) 

within  some  specified  error.  The  method  used  is: 


(n+1) 

2 


f  (T. 


(n) 


)  (T. 


(n) 


-  T. 


(n-1) 


) 


f (t2 (n) )  -  f (t2 (n  1} ) 


where  n  denotes  the  iteration  number. 


(46) 


D .  The  Material  and  Energy  Balance  Computer  Program 

The  balance  routine  searches  for  unknown  inputs  if 
there  is  some  output  information  given.  Subroutine  BALNCE 
executes  this  search.  Having  found  a  plausible  group  of  units 
around  which  material  and  energy  balances  may  be  performed, 
subroutines  SETEQ ,  SEQCAL,  and  SIMCAL  attempt  calculations. 
Enthalpies,  equilibrium  ratios,  dew  points,  bubble  points,  and 
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qualities  are  calculated  if  desired  by  subroutines  ENTHPY , 
EQUILK,  DEWPT ,  BUBPT  and  QUAL  respectively.  The  purpose  and 
contents  of  these  subroutines  will  be  discussed  in  more  de¬ 
tail  subsequently. 

The  balance  subroutines  as  written  handle  only  linear 
equations  except  when  solving  for  an  unknown  temperature.  The 
linearity  is  maintained  for  energy  balances  by  assuming  the 
enthalpy  of  a  mixture  to  be  a  linear  combination  of  its  pure 
component  enthalpies  at  the  same  temperature  and  pressure  as 
the  mixture.  Similarly  equilibrium  ratios  are  assumed  to  be 
concentration  independent  when  calculating  the  enthalpy  of  a 
two  phase  stream.  That  is  the  equilibrium  ratios  are  functions 
of  temperature  and  pressure  alone  for  each  component.  The  as¬ 
sumption  of  concentration  independence  of  the  equilibrium  ratios 
is  not  necessary  to  the  other  calculations  employing  them  such 
as  dew  point  and  bubble  point  calculations. 

Referring  to  Figure  X,  after  the  sequential  calcu¬ 
lation  of  all  possible  units  in  the  process  (see  Figure  VI  and 
VII) ,  the  balance  routine  is  summoned  to  calculate  unknown 
input  streams.  When  an  unknown  input  is  located,  a  balance 
envelope  is  determined  and  an  attempt  is  made  to  solve  for  un¬ 
known  variables  in  the  associated  streams  by  direct  calculations 
(that  is  one  equation  in  one  unknown) .  If  this  fails  to  render 
all  variables  known  then  an  attempt  is  made  to  set  up  a  set  of 
simultaneous  equations  to  yield  some  results.  If  some  simul- 
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taneous  calculations  are  made,  the  direct  calculations  are 
tried  again.  This  cycle  is  repeated  until  all  variables  are 
known  or  no  more  can  be  calculated.  The  streams  are  flagged 
known  if  calculations  are  successful  and  control  is  returned 
to  the  executive  program.  Failure  of  the  calculations  results 
in  an  attempt  to  extend  the  balance  envelope  to  solve  for  this 
unknown  input.  If  this  also  fails  the  SN  matrix  is  scanned 
for  another  unknown  input.  The  failure  of  the  balance  routine 
results  in  the  return  of  control  to  the  executive  program  to 
locate  the  recycle  loops  and  commence  trial  and  error  calcula¬ 
tions  . 

A  more  detailed  discussion  follows  as  the  logic  of 
each  subroutine  is  discussed. 

1.  Subroutine  BALNCE 

The  workings  of  this  subroutine  will  be  illustrated 
in  the  examples  presented  in  the  Appendix.  Reference  is  made 
to  the  flow  diagram,  Figure  XI,  and  the  subroutine  FORTRAN 
listing  in  the  Appendix. 

Subroutine  BALNCE  is  called  by  subroutine  MAJOR  when 
some  information  is  given  in  the  stream  variables  matrix  for 
streams  other  than  fresh  feed  streams  or  streams  flowing  from 
units  which  have  been  calculated  previously.  The  function  of 
subroutine  BALNCE  is  to  scan  the  input  streams  (be  they  inter¬ 
equipment  or  fresh  feed  streams)  for  unknown  or  partially  un¬ 
known  streams.  The  fresh  feed  streams  are  scanned  first  followed 
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by  inter-equipment  streams,  if  necessary.  Having  found  a 
totally  or  partially  unknown  input  stream,  called  NUFS,  the 
number  of  the  unknown  £eed  stream,  the  unit  into  which  it 
flows  is  examined.  This  unit  is  called  NUWUFS ,  the  number 
of  the  unit  with  the  unknown  £eed  stream.  The  row  of  the 
process  matrix  (KPM)  corresponding  to  this  unit  is  now  examined 
(recall  that  the  streams  associated  with  the  unit  in  question 
are  listed  in  columns  two  through  N3MAX  in  the  process  matrix) . 
Each  stream  is  examined  in  turn.  If  the  corresponding  stream 
variables  vector  contains  positive  elements,  it  is  entered 
into  one  of  the  vectors  which  keep  a  record  of  the  streams 
flowing  into  or  out  of  the  balance  envelope.  NIPT  harbors  the 
nUmber  of  the  _input  streams  and  NOPT,  the  number  of  the  output 
streams.  NUNIT  lists  the  numbers  of  the  units  within  the 
balance  envelope.  A  stream  which  is  under  examination  is 
automatically  entered  into  the  NIPT  or  NOPT  vector  if  it  is 
a  fresh  feed  stream  or  a  product  stream  respectively.  Num¬ 
bers  of  uncalculated  streams  appearing  in  the  preferred  stream 
vector  (KPS) ,  a  vector  of  streams  to  be  assumed  in  the  trial 
and  error  calculations,  or  of  streams  which  are  totally  unknown, 
that  is  all  negative  numbers  in  elements  three  through  NSLMAX , 
are  not  entered  in  either  the  NOPT  or  the  NIPT  vectors.  The 
reason  for  this  is  that  introducing  a  totally  unknown  stream 
adds  at  least  one  more  unknown  than  the  number  of  components 
in  the  system  to  those  of  the  unknown  input  stream;,  NUFS. 
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Thus,  enough  equations  cannot  be  written  to  solve  for  the  un¬ 
knowns  involved.  The  numbers  of  the  units  into  which,  or 
from  which,  these  rejected  streams  flow  are  entered  into  the 
NUBAL  vector  to  be  considered  subsequently  when  all  the  streams 
associated  with  NUWUFS  have  been  considered.  Then  elements  of 
NUBAL  are  transferred  to  NUBALO.  Each  element  in  NUBALO  is 
then  set  to  NUWUFS  and  its  associated  streams  examined  in  the 
manner  analagous  to  that  described  above.  The  cycle  is  re¬ 
peated  until  no  new  stream  numbers  have  been  added  to  NUBAL 
and  all  the  elements  of  NUBALO  have  been  considered.  This 
will  occur  when  all  the  associated  streams  crossing  the  bound¬ 
ary  of  the  balance  envelope  are  fresh  feed  streams,  product 
streams  or  totally  or  partially  known  inter-equipment  streams. 
Of  course,  NUFS  may  or  may  not  be  a  totally  unknown  stream. 

Subroutine  SEQCAL  is  now  called  in  an  attempt  to  ef¬ 
fect  the  balance  calculation.  If  the  balance  calculation 
fails,  control  returns  to  BALNCE.  The  flag,  NB,  is  zero  upon 
return  when  the  calculation  has  failed. 

Subroutine  BALNCE  now  attempts  to  extend  the  balance 
envelope  along  inter-equipment  streams  flowing  across  the 
boundary  of  the  envelope.  Choosing  the  first  inter-equipment 
output  stream  from  NOPT  which  is  not  totally  known,  if  any, 
the  unit  into  which  it  flows  now  becomes  NUWUFS  and  the  analy¬ 
sis  continues.  If  extension  along  this  path  leads  to  a  more 
desirable  balance  envelope,  that  is,  the  number  of  unknowns 
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decreases  or  the  number  of  components  involved  increases, 
this  new  envelope  is  used  and  it  in  turn  is  extended  in  the 
identical  manner  if  the  calculations  fail  again.  The  bound¬ 
ary  is  returned  to  its  original  position  if  the  extension  is 
not  desirable  and  search  for  another  inter-equipment  stream 
along  which  to  extend  the  envelope  is  made. 

The  routine  may  not  always  find  a  balance  envelope 
for  which  calculation  is  successful.  In  this  event  control 
is  returned  to  MAJOR  and  trial  and  error  calculations  are  at¬ 
tempted.  If  successful,  however,  control  is  returned  to  MAJOR 
where  the  process  matrix  is  rescanned  in  search  of  a  unit  with 
all  input  streams  now  known.  Refer  to  Figures  VI  and  VII. 

2.  Subroutine  SEQCAL 

Accompanying  the  following  discussion  is  the  flow 
diagram,  Figure  XII,  which  indicates  the  function  of  SEQCAL. 
Again  the  FORTRAN  listing  is  given  in  the  Appendix. 

The  stream  numbers  stored  in  the  NOPT  and  NIPT  vec¬ 
tors  are  transferred  to  the  NSTR  vector.  This  vector  con¬ 
tains  all  the  numbers  of  the  streams  associated  with  the 
balance.  The  stream  variables  vectors  for  these  streams  are 
examined  for  unknown  variables  (negatives  in  appropriate  ele¬ 
ments)  and  attempts  are  made  to  solve  for  these  directly. 

That  is,  SEQCAL  searches  for  one  equation  involving  one  unknown. 
This  is  done  by  examining  appropriate  elements  of  the  SN  matrix 
and  applying  the  following  equations: 
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1.  Overall  Mass  Balance  (N  =  number  of  streams  crossing  the 

boundary  of  balance  envelope) 

N 

l  S.*SN(i,3)  =  0  (47) 

i=l  1 

where 

S.  =  ±1 
i 

2.  Component  Mass  Balances 

N 

l  S.*SN(i, j+NOCOMP+3)  =0  (48) 

i=l  1 

j  =  1 ,  2 ,  ...  ,  NOCOMP 

where 

SN  (i ,  j+NOCOMP+3 )  is  the  j^*1  component  mass  flow 
rate  in  stream  i 

3 .  Summation  of  Component  Flows 

NOCOMP 

l  SN ( i , j+NOCOMP+3 )  =  SN(i,3)  (49) 

j=l 

i  •  i  j 

4.  Mass  Fraction  Relationship 

SN(i, j+NOCOMP+3) 

SN(i,j+3)  =  -  (50) 

SN(i, 3) 

If  any  calculations  are  made  on  the  first  pass,  the  search 
is  repeated.  Subroutine  SETEQ  is  called  if  all  the  variables 
are  not  solved  for  in  SEQCAL .  Control  is  returned  to  SEQCAL 
from  SETEQ.  The  search  for  variables  which  can  be  solved 
for  directly  is  repeated  if  the  simultaneous  calculations  were 
successful.  When  calculations  fail  in  both  SEQCAL  and  SETEQ, 


. 


■ 


-  66  - 


Figure  XII  -  Flow  Diagram 
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control  is  returned  to  BALNCE  or,  if  a  unit  calculation  is  be¬ 
ing  executed,  to  SETUP  or  EQUIP.  BALNCE  calls  SEQCAL  when  an 
attempt  is  being  made  to  solve  for  an  unknown  input  stream. 

SEQCAL  attempts  to  solve  the  energy  balance  equation 
if : 

1.  all  mass  flow  variables  of  the  streams  involved  are  known 

2.  only  one  enthalpy  (temperature)  or  heat  flow  associated 
with  the  balance  envelope  is  unknown 

3.  energy  balance  calculations  are  requested  (NEB  greater 
than  one) . 

When  the  unknown  is  an  unknown  temperature,  trial 
and  error  is  involved  in  the  calculation. 

Last  in  subroutine  SEQCAL  is  the  section  which  flags 
streams  known  when  they  have  been  totally  calculated.  This 
section  is  bypassed  when  the  subroutine  is  performing  a  unit 
calculation . 

3.  Subroutine  SETEQ 

This  subroutine  is  called  by  SEQCAL  when  a  simul¬ 
taneous  solution  is  required.  It  sets  up  the  equations  to  be 
solved  simultaneously  (if  possible) .  NROW  is  the  counter  for 
the  number  of  equations  successfully  written.  KSTR  is  the 
counter  for  the  unknowns  involved.  These  unknown  elements  of 
the  stream  variables  vector  involved  have  their  row  numbers 
and  column  numbers  from  the  SN  matrix  stored  in  the  vectors 
NKSTR  and  NKCOL  respectively. 
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Reference  is  made  to  the  flow  diagram  of  subroutine 
SETEQ,  Figure  XIII.  The  subroutine  listing  is  found  in  the 
Appendix . 

The  first  attempt  to  obtain  an  equation  is  the  over¬ 
all  mass  balance.  Then  component  balances  equal  in  number  to 
one  less  than  the  number  of  components  involved  in  the  balance, 
NCOMPO,  are  used  in  attempts  to  obtain  additional  equations. 

If  the  number  of  unknowns  involved,  KSTR,  equals  the  number 
of  equations  obtained,  NROW,  then  subroutine  SIMCAL  is  called 
to  effect  the  solution  of  the  simultaneous  linear  algebraic 
equations.  In  the  event  that  KSTR  exceeds  NROW  by  one,  an 
energy  balance  may  be  used  to  obtain  the  required  equation. 

This  is  possible  if  the  temperature,  pressure  and  quality  of 
all  the  streams  involved  is  known  so  as  not  to  introduce  ano¬ 
ther  unknown  with  the  new  equation. 

If  the  component  mass  flow  rate  is  known  for  each 
component  in  each  stream  or  if  either  the  overall  mass  flow 
rate  or  the  mass  fraction  is  known  for  each  component  in  each 
stream,  an  energy  balance  can  be  attempted  directly.  However, 
NCOMPO  component  balances  must  be  written  and  component  flows 
used  as  unknown  elements  when  the  overall  mass  flow  rate,  some 
component  flows  and  their  corresponding  mass  fractions  are  un¬ 
known  in  any  stream  associated  with  the  balance  calculation. 

The  energy  balance  can  now  be  written  subject  to  the  above  con¬ 
ditions  again.  The  reason  for  this  change  in  procedure  is  that 
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Figure  XIII  -  Flow  Diagram 
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if  NCOMPO  component  balances  are  used  the  overall  flow  rate 
need  not  be  entered  as  unknown  in  the  NKSTR  and  NKCOL  vectors. 
Thus,  there  would  be  no  possibility  of  obtaining  the  overall 
mass  flow,  the  component  mass  flow  and  the  corresponding  mass 
fraction  all  as  unknowns  for  a  certain  component  necessitating 
another  equation  derived  from  equation  49  to  solve  for  each 
unknown  component  flow  rate  introduced  by  the  energy  balance. 
As  mentioned  previously,  the  storing  of  both  mass  fractions 
and  component  mass  flow  rates  along  with  the  overall  mass  flow 
rate  is  repetitious.  If  the  mass  fractions  or  the  component 
mass  flow  rates  were  eliminated,  SETEQ  could  be  easily  adapted 
to  this  change.  Subroutine  SEQCAL  would  be  partially  elimin¬ 
ated  in  this  case. 

If  the  number  of  unknowns  exceeds  the  number  of 
equations,  then  NXBl  is  decreased  by  one  and  control  is  re¬ 
turned  to  SEQCAL.  Otherwise  SIMCAL  is  called  to  effect  the 
solution  of  the  NROW  equations. 

4.  Subroutine  SIMCAL 

Subroutine  SIMCAL  employs  Gaussian  Elimination  with 
interchange  to  solve  NROW  linear  algebraic  equations  in  NROW 
unknowns . 

Reference  is  made  to  any  text  on  numerical  analysis 
for  a  discussion  of  the  method.  To  switch  to  another  method 
requires  only  the  replacement  of  subroutine  SIMCAL. 
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If  the  equations  cannot  be  solved,  that  is,  if  the 
interchange  fails  to  produce  an  acceptable  set  of  equations, 
control  is  transferred  to  SETEQ  after  NXBl  is  diminished  by 
one.  An  alternate  routine  for  solving  NROW  linear  algebraic 
equations  should  be  supplied  to  handle  such  a  case.  The  sub¬ 
routine  is  provided  with  an  error  message  to  signal  the  exis¬ 
tence  of  this  problem. 


5.  Subroutine  ENTHPY 


This  subroutine  calculates  the  enthalpy  per  unit 
mass  of  a  pure  component  at  a  specified  pressure  and  tempera¬ 
ture  relative  to  a  reference  temperature,  TREF.  Any  other 
subroutine  for  calculating  enthalpies  could  be  used  as  long 
as  it  uses  the  above  specifications. 

The  calculation  of  enthalpies  was  discussed  previous¬ 
ly.  If  NEB  is  flagged  to  three,  pressure  correction  using  Van 
der  Waal's  equation  of  state  is  neglected.  Refer  to  Figure  XIV 
The  latent  heats  of  vaporization  given  in  the  phy¬ 
sical  properties  vectors  (CMPROP)  are  given  at  the  normal 
boiling  point  of  the  component  in  question.  The  latent  heat 
of  vaporization  at  the  reference  temperature  is  calculated 
from  the  Watson  Correlation ( 5) : 


1  - 


TREF 


NBP 


TREF 

TC 
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(51) 
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NBP 
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FIGUiiE  XIV 

Flow  Diagram  for 
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It  can  be  seen  from  equation  (51)  that  the  reference  temper¬ 
ature,  TREF,  should  be  less  than  the  smallest  critical  temper¬ 
ature  of  the  components  involved. 

The  pressure,  temperature  and  quality  of  the  stream 
must  be  known  (or  assumed)  before  this  subroutine  is  called. 

Ideal  'K  values'  are  employed  in  the  evaluation  of  the  enthalpy 
of  a  two-phase  stream.  The  method  again  was  outlined  previously. 
The  only  requirement  here  was  that  the  equilibrium  ratios  are 
a  function  of  temperature  and  pressure  alone  for  each  component. 
This  maintains  the  linearity  of  the  energy  balance  with  res¬ 
pect  to  the  mass  flow  variables.  Note,  however,  that  this 
concentration  independence  of  the  'K  values'  need  not  be  ad¬ 
hered  to  for  any  other  subroutines. 

6 .  Subroutine  BUBPT 

In  this  work  bubble  point  calculations  are  effected 

using  ideal  equilibrium  ratios. 

Vapor  Pressure 

K  =  - 

Total  Pressure 

However,  the  subroutine  for  calculation  of  'K  values'  could 
be  replaced  by  any  other  suitable  routine,  for  example,  Chao- 
Seader  equilibrium  ratios  or  polynomial  fit  equilibrium  ratios. 

The  method  of  convergence  used  is  the  same  as  that 
used  to  evaluate  the  unknown  temperature  in  an  energy  balance, 
the  method  of  false  position. 
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At  the  bubble  point  temperature  and  pressure,  the 
following  relationship  holds  true  where  and  represent 
the  mole  fractions  of  component  j  in  the  vapor  and  in  the 
liquid  states: 


l 

j 


1.0 


1.0 


K  .x  . 
3  3 


(52) 


Therefore,  the  problem  becomes  that  of  finding  a  temperature 
(given  the  pressure  of  the  stream)  such  that: 

Tk.x.  -1.0<e  (53) 

h  li 

3 

where 

e  is  some  specified  error. 

Two  initial  guesses  are  made  at  the  bubble  point  temperature. 
Then  the  following  equation  is  used  thereafter  to  determine 
the  temperature  for  the  next  iteration: 


T(n+1)  =  T(n) 


F  (T  (n)  )  (T  (n)  -  T  (n  1)  ) 

F (T )  -  F (T (n_1) ) 


(54) 


where 


F  (T  (n)) 


NOCOMP 

y  (K  . )  ,  .  x  . 

j=l  ^  T  n  ^ 


1.0 


(55) 
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7 .  Subroutine  DEWPT 

The  dew  point  calculation  is  based  upon  the  follow¬ 
ing  equation  at  the  dew  point: 


1.0  -  l  y-i 


(56) 


The  approach  used  is  identical  to  that  employed  in  the  bubble 
point  calculation. 

8.  Subroutine  QUAL 

This  subroutine  simply  calculates  the  vapor  ratio, 
V,  and  the  quality,  Q,  of  a  stream  given  its  composition, 
temperature  and  pressure.  Quality  is  stored  in  the  stream 
control  variables  vector  in  the  fifth  element,  SNC(NSN,5)  and 
the  vapor  ratio,  V,  is  stored  in  SNC(NSN,8).  If  the  tempera¬ 
ture  of  the  stream  is  greater  than  the  dew  point  temperature 
or  less  than  the  bubble  point  temperature,  the  quality  is  set 
to  zero  or  one  respectively.  A  flash  calculation  is  required 
otherwise . 


V  is  the  ratio  of  the  pound  moles  of  vapor  to  the 


per  pound  moles  of  mixture.  The  feed  is  one  pound  mole. 
From  a  component  1 j'  molal  balance  (Figure  XV): 


z 


j 


y  .  V  +  x  .  L 
3 


(57) 


Defining : 


x  . 
3 


mole  fraction  of  component  j  in  the  liquid 
phase  of  the  two  phase  stream 


. 
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* 


L 


Figure  XV 


Two  Phase  Flow  in  Stream 
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K 


From  an  overall 


mole  fraction  of  component  j  in  the  stream 
mole  fraction  of  component  j  in  the  vapor 
phase  of  the  two  phase  stream 
pound  moles  of  liquid  in  stream  per  pound 
mole  of  stream  mixture 
equilibrium  ratio, 
molal  balance: 


Since 


or 


1  =  V  +  L 


z  . 
1 

V  + 


K  .  z  . 

1 J 

K  .V  +  L 
3 


(58) 


(59) 


(60) 


Substituting  for  L  from  the  overall  balance  equation  and  re¬ 
arranging  : 


or 


or 


V  I  y,  =  l 


K  .  z  . 
3  3 


K  +  1_V 
Kj  +  V 


V  =  l 


K  .  z  . 
3  3 


,,  ,  i-v 

Kj  +  — 


1  =  I 


K  .  z  . 
,,J- 1 


j  V (K j -1 )  +  1 


(61) 


(62) 


(63) 


' 
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Defining : 


f(V)  =  l 


K  .  z  . 
J 3 


V  (K j -1 )  +  1 


-  1 


(64) 


df  (V)  -K  .  z  .  (K .-1) 

f  '  (V)  =  -  =  l  _ 1_J _ 3 _ 


dV 


j  (V(Kj-l)  +  1) 


(65) 


V  is  found  by  using  the  Newton-Raphson  technique  for  finding 
the  root  of  an  equation: 


v (n+1)  =  v(n) 


f  (V(n)  ) 
f ' (V(n) ) 


(66) 


The  initial  guess  for  V  is  zero.  As  indicated  previously  V 
is  stored  in  SNC(NSN,8)  for  two  phase  streams.  The  quality 


can  now  be  evaluated: 


Q  = 


V  I  y  .  M . 
v  2 1  1 
l _ 

y  z .m. 

v  11 


(67) 


where 


M 


^  is  the  molecular  weight  of  component  i. 


9.  Subroutine  EQUILK 

This  subroutine  calculates  the  equilibrium  ratio  of 
component  I  given  temperature  T  and  pressure  P.  Using  con¬ 
stant  values  for  the  latent  heat  of  vaporization  the  vapor 
pressure  is  evaluated  from  the  Clausius-Clapeyron  equation. 

The  ideal  equilibrium  ratio  is  then  obtained  directly: 


P 


(68) 


. 


> 
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As  concluded  in  previous  sections,  any  other  method 
for  calculating  equilibrium  ratios  could  be  used  here.  The 
only  requirement  is  that  when  calculating  the  enthalpy  of  a 
two  phase  stream  the  equilibrium  ratios  that  are  independent 
of  concentration  be  used.  Thus,  the  linearity  of  the  energy 
balance  with  respect  to  the  mass  flow  variables  is  maintained. 
The  introduction  of  concentration  dependence  would  result  in 
non-linearity  with  respect  to  concentration  variables  in  the 
energy  balance  for  two  phase  flow  and  hence  require  a  procedure 
for  solving  a  non-linear  set  of  equations. 
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IV.  EQUIPMENT  SUBROUTINES 

By  definition  an  equipment  takes  one  or  more  input 
streams  and  performs  some  operation  to  produce  one  or  more 
output  streams.  The  equipment  subroutine  performs  a  mathe¬ 
matical  operation  to  produce  the  output  stream  values.  If  all 
inputs  to  a  unit  are  known  or  calculated  then  subroutine 
EQUIP  does  the  bookkeeping  for  the  unit  calculation.  SETUP 
is  the  bookkeeper  for  units  involved  in  a  trial  and  error  cal¬ 
culation  of  a  recycle  loop.  Reference  is  made  to  Mosler's 
thesis  (9)  for  detailed  information  concerning  the  use  and  for¬ 
mat  of  the  equipment  subroutine. 

Information  associated  with  the  equipment  subroutine 
is  stored  in  STRMI ,  STRMCI,  and  STRMO  and  STRMCO  matrices  by 
the  executive  program.  EQCALL  calls  the  appropriate  subrou¬ 
tine.  The  subroutine  performs  the  calculations  storing  cal¬ 
culated  output  stream  vectors  in  predetermined  locations. 

These  newly  calculated  stream  vectors  appear  in  the  STRMO  and 
STRMCO  matrices  when  control  is  returned  to  the  executive 
program. 

The  subroutine  must  calculate  all  the  output  mass 
flow  variables  and,  if  the  energy  balance  of  the  process  is 
to  be  completed,  the  temperatures  and  pressures  of  the  output 
streams . 

There  are  no  restrictions  imposed  upon  the  equipment 
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subroutine  other  than  the  output  stream  storage.  However, 
since  the  unit  may  be  calculated  many  times  if  it  is  involved 
in  a  recycle  loop,  it  is  desirable  to  avoid  rigorous  numeri¬ 
cal  solutions  in  the  interest  of  economizing  on  computer  time. 


■  •  ' 
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V.  FUTURE  WORK 

■■  I.—  .  ■  i  i .1-..  ■■  ■■  i 

The  integrated  program,  although  it  represents  a 
working  executive  program,  can  be  extended  and  improved  in 
several  areas. 

The  incorporation  of  the  unit  calculation  into  the 
newly  acquired  material  and  energy  balance  portion  of  the 
executive  program  to  supply  additional  relationships  would  be 
a  desirable  extension  to  this  work.  For  example,  when  a 
reactor  is  included  in  a  balance  envelope  the  generation, 
represented  by  'dummy'  streams,  contributes  more  unknowns  to 
the  equations  if  not  specified.  In  some  instances  these 
'dummy'  stream  variables  may  be  expressed  in  terms  of  known 
quantities  or  other  unknowns  already  part  of  the  set  of  ba¬ 
lance  equations  via  the  equations  involved  in  the  unit  calcu¬ 
lation  . 

Process  data  just  as  it  is  taken  is  not  usually 
consistent.  A  consistent  set  of  data  is  one  for  which  material 
and  energy  balances  close  exactly.  When  data  from  existing 
plants  is  to  be  analyzed,  there  will  be  a  necessity  for  sub¬ 
routines  to  detect  gross  errors  in  the  data  and  to  adjust 
measurements  to  close  the  material  and  energy  balances.  Also, 
when  a  problem  is  over  specified  using  plant  data,  a  sub¬ 
routine  for  solving  a  set  equations  in  which  the  number  of 
equations  exceeds  the  number  of  unknowns  using  a  criterion 


■ 
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such  as  least  squares  is  desirable.  The  present  material  and 
energy  balance  routine  as  written  searches  only  for  equations 
equal  in  number  to  the  number  of  unknowns  involved. 

This  presentation  assumes  ideal  solution  behavior 
for  calculating  enthalpies  and  Raoult's  law  for  equilibrium 
ratios.  More  sophisticated  subroutines  are  desirable  but 
they  will  require  larger  amounts  of  physical  property  data. 
Thus,  the  acquisition  of  physical  property  data  is  a  problem 
which  will  have  to  be  dealt  with.  The  method  used  in  this 
work  is  that  of  supplying  physical  property  data  as  part  of 
the  data  deck.  However,  this  method  would  soon  become  im¬ 
practical  with  the  improvement  of  the  subroutines  mentioned 
above . 

As  discussed  in  the  literature  survey,  the  method 
of  direct  substitution  employed  by  PACER  requires  research 
in  the  area  of  acceleration  of  convergence  and  of  the  deter¬ 
mination  of  an  optimum  sequence  of  calculation  of  the  units 
in  the  process.  In  fact,  more  work  is  demanded  in  the  area 
of  actual  criteria  for  convergence  of  this  method. 

The  power  of  optimization  is  the  next  step  in 
building  the  PACER  executive  program.  As  it  exists,  a  given 
process  is  evaluated  for  a  given  set  of  operating  conditions. 
An  optimization  procedure  could  be  treated  as  a  unit  calcula¬ 
tion  of  a  final  unit  in  the  process  stream. 

Concerning  the  application  of  the  PACER  program,  the 
development  of  an  equipment  subroutine  library  is  a  necessity. 
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VI.  CONCLUSIONS 

A  working  program  has  been  developed  which  handles 
many  of  the  typical  problems  involving  the  material  and  ener¬ 
gy  balance  calculation  of  chemical  processes.  This  program 
was  formed  by  integrating  a  material  and  energy  balance  rou¬ 
tine  into  an  existing  executive  program,  PACER.  This  balance 
routine  performs  material  and  energy  balances  around  an  ar¬ 
bitrary  balance  envelope  involving  one  or  more  units. 

A  logic  is  included  in  the  balance  routine  for  find¬ 
ing  an  unknown  input  stream  (either  an  inter-equipment  or  a 
feed  stream)  and  then  a  feasible  balance  envelope  to  attempt 
a  material  and  energy  balance  calculation.  Balance  envelopes 
introducing  totally  unknown  streams  are  rejected.  Informa¬ 
tion  specified  in  product  and  in  inter-equipment  streams  is 
exploited.  This  information  was  not  employed  by  the  PACER 
logic . 

In  the  attempt  to  solve  for  the  unknown  mass  flow 
variables  associated  with  a  balance  envelope  the  routine  tries 
single  then  simultaneous  linear  material  and  energy  balances. 
However,  an  unknown  temperature  of  a  stream  is  calculated  by 
solving  the  non-linear  energy  balance  equation. 

The  logic  of  the  balance  routine  automatically 
extends  a  balance  envelope  if  the  calculation  of  that  envelope 


was  unsuccessful. 


■ 

, 
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PACER  requires  that  each  different  unit  be  supplied 
with  an  equipment  subroutine  to  calculate  the  outputs  of  that 
unit  from  the  known  inputs.  The  integrated  program  does  not 
require  an  equipment  subroutine  for  a  unit  calculation  which 
consists  of  only  a  material  and/or  energy  balance.  The  exe¬ 
cutive  material  and  energy  balance  subroutines  are  available 
for  this  task.  However,  the  material  and  energy  balance  rou¬ 
tine  may  be  followed  by  an  equipment  subroutine  which  then 
performs  some  other  function  such  as  an  equipment  design.  This 
feature  is  illustrated  in  the  examples  appearing  in  the  Appen¬ 
dices.  Example  I  in  Appendix  A  is  solved  by  the  material  and 
energy  balance  routine  alone  and  the  PACER  executive  program 
simply  calls  the  appropriate  subroutine. 

By  calculating  some  inter-equipment  streams  through 
the  material  and  energy  balance  logic  the  recycle  calculation 
of  a  process  can  be  eliminated  in  some  cases,  as  exemplified 
in  the  problems  presented  in  the  Appendices. 

If  unknown  feed  streams  can  be  calculated  by  the 
material  and  energy  balance  routine,  then  the  rule  of  calcu¬ 
lation  inherent  in  PACER  can  be  preserved  (that  is,  the  cal¬ 
culation  of  physical  outputs  from  inputs  as  recommended  for 
stability)  and  the  calculations  completed  via  the  PACER  logic. 
Problems  involving  feed  streams  to  the  process  which  are  not 
totally  specified  are  beyond  the  scope  of  many  executive  pro¬ 
grams,  including  PACER.  Several  of  the  example  problems  in  the 
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Appendices  fall  into  this  category. 

Several  subroutines  included  in  the  material  and 
energy  balance  routine  are  available  to  the  user: 

1.  The  subroutine  for  calculation  of  the  pure  component 
enthalpy  at  the  temperature  and  pressure  of  the  stream 
is  accessible  to  the  user.  This  subroutine  employs  the 
Watson  correlation  and  Van  der  Waals  equation  of  state. 
When  evaluating  the  enthalpy  of  a  two-phase  stream,  equil¬ 
ibrium  ratios  which  are  independent  of  composition  are 
used.  Ideal  equilibrium  ratios  using  the  Clausius 
Clapeyron  equations  were  employed. 

2.  Subroutines  for  calculating  the  dew  point  and  bubble 
point  temperatures  of  a  stream  using  equilibrium  ratios 
are  available. 

3.  A  subroutine  for  calculating  the  quality  and  vapor  ratio 
of  a  two-phase  multi-component  stream  is  also  available. 

All  principal  parts  of  the  material  and  energy 
balance  program  were  written  as  subroutines  to  facilitate 
substitution  of  new  procedures  selected  by  the  user.  For 
example,  ideal  'K  values'  were  employed  but  any  other  method 
of  calculation  could  be  used  subject  to  the  above  restrictions. 

The  balance  routine  integrated  with  the  modified 
PACER  program  was  applied  to  the  solution  of  the  four  example 
problems  presented  in  the  Appendices.  Several  different  as¬ 
pects  of  the  integrated  program  are  illustrated. 
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APPENDIX  A 
Example  I 

"Process  Calculations";  Kammermeyer  and  Osburn; 
page  163;  problem  5 
See  Figure  A-l 

The  simplified  flowsheet  (Figure  A-l)  represents 
a  section  from  a  plant  which  manufactures  buta¬ 
diene  (H^C  =  CH  -  CH  =  CH2)  from  ethyl  alcohol. 
The  analysis  of  the  labelled  streams  are  given 
in  Table  A-l  in  percent  by  weight.  Since  PACER 
is  dimensioned  to  handle  only  eight  components, 
C-^H^O  and  C^H^O  are  combined  and  considered  to 
be  a  single  component.  So  are  CC>2  and  H2»  These 
pairs  occur  together. 

Using  a  basis  of  10,000  lb/hr  of  stream  3,  cal¬ 
culate  the 

1.  mass  flow  rate  of  each  stream 

2.  mass  flow  rate  of  water  added  in  stream  15 

3.  mass  flow  rate  of  water  removed  in  stream  12 

4.  recycle  ratio  (stream  2/stream  1) 
recycle  ratio  (stream  ll/stream  3) 
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Figure  A-l 

Flowsheet  of  a  Butadiene  Plant 

UNIT  FUNCTION 

alcohol  recovery 
mixer 
reactor 
mixer 
scrubber 

absorbers  and  strippers 
scrubber 
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TABLE  A-l 

Composition  in  Weight  Per  Cent  of  Labelled  Streams 


Component 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

l  (c2h5oh) 

95.0 

81.7 

39.8 

2.3 

0.7 

20.5 

0.4 

— 

2.6 

11.1 

— 

2  <C4H6) 

- 

- 

14.8 

60.0 

- 

- 

3.6 

80.0 

- 

3.2 

64.0 

3  <C4V 

— 

— 

3.7 

15.0 

- 

— 

0.9 

20.0 

- 

0.8 

16.0 

C2H  0 

4  {  } 

C4H10° 

— 

9.6 

8.3 

1.6 

- 

4.3 

— 

- 

64.4 

- 

5.8 

co9 

5  { H  } 

H2 

- 

— 

1.9 

5.4 

- 

- 

29.3 

- 

- 

26.7 

- 

6  (C2H4) 

— 

- 

4.1 

15.6 

- 

— 

63.1 

- 

- 

57.5 

14.2 

7  (C6H140) 

— 

1.3 

2.5 

- 

- 

1.3 

- 

- 

33. 

- 

- 

8  (H20) 

5.0 

7.4 

24.9 

0.1 

99.3 

73.9 

2.7 

— 

- 

0.7 

- 

&.0  5.0£  V . 0  £.£  H.ee  V  .18  0.5£ 
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Purpose : 


This  example  illustrates  the  balance  routine 
searching  for  a  suitable  envelope  around  which 
to  perform  a  material  balance  in  order  to  calculate 
unknown  inputs.  The  PACER  logic  for  calculating 
equipment  output  streams  or  recycle  loops  is  not 
used  in  the  solution  of  this  example. 

Although  recycle  is  involved  no  trial  and  error 
calculations  are  necessary.  No  feed  streams  are 
totally  specified  and  also  no  equipment  sub¬ 
routines  are  required  in  the  solution  of  this 
problem . 
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TABLI-  A-2 


SAMPLE  OF  CAT  A  FCR  EXAMPLE  I 


SECTION  OF  BUT  A  C  I  ENE  PLANT  -  KAMMERMEYER  -  PAGE  163  -  PROBLEM  5 


3  1  0  2C  l  l  0 


7  5 


5 


5  20  5  4 
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PROCESS  MATRIX 

1  5C1  6  -2  -9  -12 


5C2 

l 

2 

-13 

-0 

5C3 

13 

16 

-3 

-17 

5C4 

3 

11 

-14 

-0 

5C5 

14 

5 

-4 

-6 

5C6 

4 

-8 

-10 

-11 

5C7 

10 

15 

-5 

-7 

7 


EQUIPMENT 

PARAMETERS 

MATRIX 

1 .ccoo 

-c  .coco 

-0.0000 

-0.0000 

-0.0000 

2.0C00 

-c.cooc 

-0.0000 

-0.0000 

-0.0000 

3  •  CCOO 

-c.ccco 

-0.0000 

-o.occo 

-0.0000 

4. CCOO 

-c.cccc 

-0.0000 

-0.0000 

-0.0000 

5. CCOO 

-C  .COCO 

-0.0000 

-0.0000 

-0.0000 

6. CCOO 

-C  .0000 

-0.0000 

-o.ooco 

-0.0000 

7. CCOO 

-C.CCCC 

-0.0000 

-o.coco 

-0.0000 

7 


EQUIPMENT  CONTROL  PARAMETERS  MATRIX 


l  .ccoo 

2.0C00 

-C.COOC 
-C  .COCO 

-0.0000 

-0.0000 

-0.0000 

-o.ooco 

-0.0000 

-0.0000 

3. CCOO 

-C.COOC 

-0.0000 

-o.occo 

-0.0000 

4  .CCOO 

-O.COCO 

-0.0000 

-o.coco 

-0.0000 

5. CCOO 

-C.COOC 

-0.0000 

-o.ooco 

-0.0000 

6.0CC0 

-C.COOC 

-0.0000 

-o.ooco 

-0.0000 

7. CCOO 

-c.ococ 

-0.0000 

-o.ooco 

-0.0000 

. .  .Continucc' 
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STREAM 

VARIABLES  MATRIX 

1 . c  cc  c 
c.ocoo 

C . 0  50  0 

1.0000 
C.COOO 
-  1.0000 

-l  .0000 
0.0000 
0.0000 

0.95C0 

0.0000 

O.OOCO 

O.OGOO 

0.0000 

0.0000 

c.ccoo 

C.COOO 

0.0000 

-1.0000 

0.0000 

2 . OCOC 

c.ocoo 

C .0740 

C.COOO 

0.0960 

-1.0000 

-I.OUOO 

0.0000 

0.0000 

0.8170 

0.0000 

c.ocoo 

0.0000 

0.0130 

-1.0000 

o.ccoc 

C.0000 

-l  .0000 

-1.0000 

0.0000 

3.0C00 

C.037C 

0.2490 

C.COOO 

C . 0830 
3980.0000 

10000.0000 

0.0190 

1480.0000 

0.3980 

0.0410 

370.0000 

0.1480 

0.0250 

830.0000 

1 90 . 0  COO 

41C.CC0C 

250.0000 

2490. 0000 

0.0000 

4.CC00 

C.  1500 
0.0010 

C.CCOO 
C.0160 
-1 .0000 

-1.0000 

0.0540 

-1.0000 

0.0230 
0. 1560 
-1.0000 

0.6000 

0.0000 

-1.0000 

-1 .0000 

-1.0000 

-1.0000 

-1.0000 

0.0000 

5.CC00 

O.CCOO 

0.9930 

C.OOCC 
C.COOO 
-  1.0000 

-1.0000 

0.0000 

0.0000 

0.0070 

O.OOCO 

O.OOCO 

0.0000 

0.0000 

0.0000 

C.CCOO 

c.ocoo 

0.0000 

-1.00 CO 

0.0000 

6.CC00 

C.OCOO 

0.7390 

C.COOO 

C . 04  30 
-  1 .0000 

-1.0000 

0.0000 

0 .0000 

0.2050 

O.OOCO 

O.OOCO 

0.0000 

0.0130 

-1.0000 

C.CCOO 

c.ccoo 

-1.0000 

-1.0000 

O.OODO 

7.0C00 

C.0C9C 

0.0270 

2.00CC 

C.COOO 

-i.COOC 

-1.0000 

0.2930 

-1.0000 

0.0040 

0.6310 

-1.0000 

0.0360 

0.0000 

0.0000 

-1.0000 

-1  .COCO 

0.0000 

-1 .coco 

O.OGOO 

8. OCOC 
0.2C0C 
0.0000 

2.0000 

C.CCCC 

0.0000 

-1.0000 

0.0000 

-1.0000 

O.OOCO 

O.OOCO 

-1.0000 

0.8000 

0.0000 

0.0000 

C.CCOO 

C.COOO 

0.0000 

O.OOCO 

0 .0000 

9. COCO 
C.OCOO 
C.CCOO 

2.0000 

0.6440 
-  I.COOC 

-i.0000 

0.0000  ' 
0.0000 

0.0260 

O.OOCO 

O.OOCO 

0.0000 

0.3300 

-1  .uooo 

O.CCOO 

C.CCOO 

-1.0 GOO 

0 • COG  0 

0 . OoOu 

• 
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-1  .ccoo 

-1  .CCCC 

0  .OCCO 

1  •  O  O  O  V 

-l.OCCO 

•  \J  \J  \J 

0.0000 

1 1  .cccc 

C.  lfcCC 
C.CCCC 

C.CCCC 

C  .  0  5  8  0 
C.CCCC 

-l.CCCO 

C.OCCO 

-l.OCCO 

0. COCO 
0. 1420 
-l.CCCO 

0.6400 

0.0000 
-1 .0000 

C.CCCC 

-  1  .cccc 

C.OCCO 

0. COCO 

0.0000 

12 .CCCC 
C.CCCC 
l.CCCO 

2  .CCCC 
C.CCCC 

C  .COCC 

-l.OCCO 

C.OCCO 

C.OCCO 

C.OCCO 

O.CCCO 

O.COCO 

0.0000 

0.0000 

0.0000 

C.CCCC 

C.CCCC 

C.OCOO 

-l.CCCO 

0.0000 

13  .CCCC 

-  1  .CCCC 

-  1  .cccc 

C  .  C  0  0  c 
-  1  .CCCC 
-l.CCCC 

-l.OCOO 
-l.OCCO 
-  l.OCCO 

-l.CCCO 

-l.CCCO 

-l.CCCO 

-1.0000 

-1.0000 

-1.0000 

-1 .  cccc 

-  l.CCCC 

-  l.OCCO 

-l.CCCO 

-l  .0000 

14  .CCCC 
-C.CCCC 
-C.CCCC 

C.CCCC 
-C.CCCC 
-C  .COCO 

-C.OCCO 

-C.OCCO 

-C.OCCO 

-O.CCCO 

-O.CCCO 

-O.CCCO 

-0.0000 

-0.0000 

-0.0000 

-C.CCCC 

-C.CCCC 

-C.OCOO 

-O.CCCO 

-0.0000 

15. CCCC 

C  .CCOO 

1  .cccc 

l.CCCC 

C  .  C  0  C  0 
C.CCCC 

-1.0000 

C.OCOO 

C.OOCO 

O.CCCO 

O.CCCO 

O.CCCO 

0.0000 

0.0000 

0.0000 

C.CCCC 

C.CCCC 

C.OCCO 

-1 .COCO 

0.0000 

16. CCCC 
-1  .CCCC 
-1  .CCCC 

l.CCCC 
-  l.CCCC 
C.CCCC 

-l.OCOO 

-l.OCCO 

-l.OCCO 

U.OCCO 

-l.CCCO 

-l.CCCO 

-1 .0000 
-1  .0000 
-1  .0000 

-l.CCCC 

-  l.CCCO 

-l.OCOO 

-l.CCCO 

10000.0000 

17. CCOO 
C.CCCC 
C.CCCC 

2  .CCCC 
C.CCCC 

-  1  .cccc 

-l.OCCO 

C.OCCO 

C.OCCO 

l.CCCO 

O.COCO 

O.OCCO 

O.COOO 

0.0000 

0.0000 

C.CCCC 

C.CCCC 

G.OCOO 

O.CCCO 

10000.0000 

. . . . . . . . .  „ . 

. . .Continued 

0  S  i  3  . 

0  i  i  1  .  0 

>0,  .1- 

)  ) . .) 

0  3  ) . 3 I 

OOOe . 0 

Oc*\  .0 

)\  <  «N .  ) 

0333.3 

0>  3  3 . 3 

oOO  .0 

sJ  %  • 

>3.  .  1  - 

.  - 

0  \  3  ) .  ) 

vo6o  .  ) 

j  u  .  1  “ 

)  .  I  - 

J  -)  •  1 

.  A «.  • 

00  .  J 

.  (  - 

0303.3 

03  -3.  1  I 

. 

OS*M  .0 

0  0  k '  3 . 3 

OrC  .3 

3  •  3  i  .  3 

JU  J  .  i  - 

.  1  - 

3 j3 J.  3 

j.  > 

U30  J  .  0 

•  3  ).  I  - 

. 

0<  • 

3  J  l)  •  3 

.  <  ■  1 .  !  - 

i  .  1  )  J  .  ; 

0  3  3  0  .  S  i 

.  3  ;>  j  . 

J  J  3  V  •  J 

3333. 3 

333 J.  3 

. 

3  >  J  . 

3  .3 

3000.3  4 

0003. r 

0  >  .  ) 

J  ■  .  i  - 

)000. 3 

;  3o  ) . 

3033.3 

o  .  .  '  - 

3  3  .  i  - 

30  i  .  1  - 

/ 

3  JOO. j 

3  3  3  3. £  I 

.  f  - 

300. i - 

00  .  t  - 

3.1- 

0033. I  - 

j  W  .  '  - 

03  >j  .  1  - 

3  3  .J- 

3  ).  !  - 

00)3.  !  - 

.  ]  - 

'303.  J 

>0o  >.  1  - 

»  1  — 

)  0  3  3 . 1  - 

>.)  m  - 

■  '  b  .  - 

0  3  .  ■- 

3  3  'J.3 

0033. AT 

■ ;  j  .  - 

3  ;  w  .  3  - 

33  . 

0  '  .3- 

00)3.  - 

• 

.  o  ~ 

.  -  -  x 

.  )- 

03  )  .  )- 

1  J  .  - 

03  >3  .  - 

H).  .  - 

>  > .) .  •- 

0033.3- 

Ob  ■  0 .  ) 

3  .  )  .0 

333  . ! - 

0000. I 

3333. PT 

• 

033 J . 3 

(  j  3  3  3  •  J 

..  3  J  3 . 3 

3333. 3 

■_  « 

3303.3 

0330. 

3  0  3  ) .  J 

3  )33.  I 

'  J  .  ) 

3  )3  .  I  - 

03  '  ».  3 

\ 

03)3.3 

0033.3 

'  )  .  f  * 

v>0  )  . 

J  0 . 1  - 

3333. 1 

0033. dl 

.  I  * 

jj.  .  (  - 

3  33  .  i  - 

0  3  )  3 . I  - 

0)3  .  !  - 

-  .  I" 

:  .)  -  )  .  i  - 

00 JO  .  i  - 

0)30.3 

)3  3  .  I  - 

*J  J  i 

3  3  ; .  1  - 

3  0.  '  .  J  " 

0  >33  .  1  - 

0033.1- 

3  .  ) 

03  3'  .  f 

33.  3.1- 

0000. s 

0033. V I 

{)..  vO.  ) 

. 

0030.0 

3003.3 

0333.3 

V;  J  J  . 

■303.  ■ 

JO 

.  .  1  - 

0333.3 

'  .  1  »  1 

000  J  . 

'3  13*6 

0033. 3 

0033.3 

. . . 


17 


STREAM  CCM'U'L  VARIABLES  MATRIX 


1 . cccc 

1  .  C  G  C  C 

-c.occo 

2. CCCO 

-0.0000 

2  .  CCCC 

C  .CCCC 

-c.occo 

4. CCCO 

-O.OCOO 

3  .CCCC 

C.CCCC 

-C.OCCO 

8. COCO 

-0.0000 

A. CCCC 

C.CCCC 

-Q.QOCO 

7. COCO 

-C.0000 

5. CCCO 

C.COCO 

-6.0000 

2. CCCO 

-C.0000 

6  .CCCC 

C  .CcCC 

-C.OCCO 

4. 00 CO 

-0.0000 

7  .CCCC 

2  .  C  C  C  C 

-C.OCCO 

6. CCCO 

-0.0000 

8. CCCC 

2  .  C  C  C  C 

-C.OCCO 

2. CCCO 

-0.0000 

S  .CCCO 

2 .CCCC 

-O.OCOO 

i.CCCO 

-0  .cooo 

1C  .CCCC 

C  .CCCC 

-O.OCOO 

6. CCCO 

-0.0000 

11. CCCC 

C.CCCC 

-o.oooo 

4. CCCO 

-0.0000 

12. CCCC 

2  .CCCC 

-c.occo 

I.CCCO 

-o.cooo 

13. CCCC 

C.CCCC 

-c.occo 

4.0CCO 

-0.0000 

1 A  .  C  COC 

C.CCCC 

-c.occo 

C.OCCO 

-0.0000 

15  .CCCC 

1  .CCCC 

-c.occo 

1 . COCO 

-0.0000 

16. CCCC 

1 .  C  0  0  0 

-c.ococ 

6. CCCO 

-0.0000 

17  .CCCO 

2  .CCCC 

-c.occo 

2. CCCO 

-0.0000 

STREAM  VARIABLES  TEST  VECTOR 


ICC  .CCCO 

ICC  .CCCC 

0.0100 

O.OICO 

0.0100 

C.C1CC 

C  .  C  1 C  C 

C.o  ICO 

0.C1 CO 

O.ulOO 

C.01CC 

C  .01CC 

0.01CC 

O.CICO 

0.0  100 

C  .0  ICO 

C  .C1CC 

0.0  ICO 

O.OICO 

0.0100 

1 


STREAM  CCNTRCL  VARIABLES  TEST  VECTCR 
ICC. CCCC  KC.CCCC  100.0000  lOQ.OOCO  0.5000 


0 


8 _ 0  -C.CCCC 
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The  following  discussion  is  presented  to  clarify 
the  logic  of  the  material  and  energy  balance  program.  Re¬ 
ference  is  made  to  Figure  VI  and  VII  as  well  as  Figure  A-2. 

Following  the  input  routine  (DREAD  and  DPRINT) 
control  is  transferred  to  subroutine  MAJOR.  All  equipment 
and  stream  flags  are  initialized  to  zero.  Subroutine  SCAN  is 
called.  Totally  known  stream  3,  see  Figure  A-2,  is  flagged 
to  plus  one  and  product  streams  7,  8,  9,  12,  and  17  to  plus 
ten.  Product  streams  do  not  affect  the  solution  of  the  pro¬ 
cess.  Totally  known  feed  streams  are  flagged  to  plus  seven 
by  SCAN.  However,  neither  feed  stream  1  nor  15  is  totally 
specified.  Again  refer  to  Figure  A-2.  Control  returns  to 
MAJOR. 

MAJOR  scans  the  process  matrix  in  an  attempt  to 
find  a  unit  with  all  streams  flowing  into  it  flagged  as  known. 
There  are  none  in  this  case  as  can  be  seen  from  a  quick  scan 
of  Figure  A-2. 

Since  no  units  can  be  calculated  directly,  sub¬ 
routine  MAJOR  calls  subroutine  BALNCE  in  an  attempt  to  cal¬ 
culate  an  unknown  feed  stream.  The  fresh  feed  streams  are 
searched  for  unknowns  by  scanning  the  stream  variables  vectors 
which  have  a  plus  one  in  the  second  element  of  the  vector  (see 
Table  A^2)  signifying  a  feed  stream.  Feed  stream  1  is  not 
totally  specified  and  therefore  unit  2  is  entered  directly 
into  the  balance  envelope.  Note  the  negative  numbers  in 
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several  elements  of  the  stream  variables  matrix  corresponding 
to  stream  1  (see  Table  A-2) . 

The  streams  associated  with  unit  2  are  now  exa¬ 
mined  by  subroutine  BALNCE.  Stream  2  is  partially  specified 
and  is  therefore  entered  into  the  NIPT  vector,  a  vector  of 
the  numbers  of  streams  flowing  into  the  balance  envelope. 

Stream  1,  being  the  unknown  feed  stream  which  BALNCE  is  attempt 
ing  to  calculate,  is  automatically  entered  into  the  NIPT  vector 
Stream  13  is,  however,  totally  unknown  and  therefore  unit  3  is 
entered  into  the  NUBAL  vector  to  be  examined  subsequently. 

Since  there  are  no  more  streams  associated  with  unit  2,  BALNCE 
now  shifts  its  attention  to  unit  3.  Streams  16  and  17  are 
entered  into  the  NIPT  and  NOPT  vectors  respectively  since  they 
are  feed  and  product  streams.  Stream  3  is  the  only  other 
stream  associated  with  unit  3  and  it  is  totally  known.  Thus, 
it  is  entered  into  the  vector  containing  the  output  streams 
from  the  balance  envelope.  Stream  13  is  not  considered  since 
it  flows  between  two  units  within  the  balance  envelope.  No 
new  units  were  added  to  the  NUBAL  vector  so  a  plausible  ba¬ 
lance  envelope  has  been  located.  SEQCAL  is  called.  Material 
balance  calculations  fail  since  the  number  of  unknowns  present 
exceed  the  number  of  equations  available.  The  envelope  is  not 
extended  since  there  are  no  partially  unknown  inter-equipment 
streams  flowing  from  the  balance  envelope.  Stream  3  is  totally 
specified  and  nothing  is  to  be  gained  by  extending  it.  Refer 
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to  Figure  A-3  for  illustrations  showing  the  balance  envelope 
attempted  (balance  envelope  I) . 

Subroutine  BALNCE  attempts  to  extend  the  balance 
envelope  first  along  unknown  inter-equipment  streams  flowing 
from  the  balance  envelope.  Inter-equipment  input  streams  from 
the  initial  balance  envelope  are  not  extended  since  the  streams 
result  from  either  recycle  loops  which  will  be  uncovered  when 
pursuing  the  output  streams  or  from  feed-forward  loops  in 
which  case  there  is  no  need  to  repeat  the  balance  envelope 
which  has  been  or  will  be  used  in  an  attempt  to  calculate  an 
unknown  input  stream  upstream. 

Scanning  of  the  stream  variables  vectors  is  con¬ 
tinued  in  search  of  another  input  stream  which  is  not  totally 
known.  The  next  fresh  feed  stream  which  is  not  totally  known 
is  stream  15.  Therefore,  unit  7  becomes  the  starting  point 
for  the  search  for  another  balance  envelope  and  the  streams 
associated  with  unit  7  are  examined.  Since  streams  5  and  10 
are  partially  specified,  a  balance  is  attempted  around  unit  7. 
This  is  balance  envelope  II  in  Figure  A-3.  SEQCAL  is  called. 
Calculation  of  this  balance  envelope  fails  also.  Control  re¬ 
turns  to  BALNCE  and  attempts  are  made  to  extend  this  envelope. 
Stream  5  is  extended  since  it  is  the  only  partially  known 
inter— equipment  stream  which  is  an  output  from  the  balance. 
Thus,  unit  5  is  included  in  the  balance  envelope  (see  Figure 
A-3) .  Since  stream  14  is  totally  unknown,  unit  4  is  also  in¬ 
cluded  in  the  balance  envelope.  Stream  3  is  specified  and 


.  (  . 

'  - :  s  x  vt  ' 

^,¥91:'  ;  arid  bne  sqoSovnB  aonslsd  ?o5.  Aoisea  arid  10 3 


A13 


r 


L.EC-rC.hLD 

SAM&  N*  FIGURE.  A-£ 


Figure  A-3 

Flowsheet  of  Butadiene  Plant 


Showing  Status  of  Calculation 


A14 


stream  4,  6  and  11  are  partially  specified.  A  suitable  ba¬ 
lance  envelope  has  been  found.  Again  refer  to  Figure  A-3, 
balance  envelope  III.  The  calculation  of  this  balance  enve¬ 
lope  around  units  4,  5  and  7  is  successful.  Streams  4,  6,  7 , 
10,  11  and  15  are  now  known  as  well  as  the  specified  stream  3. 
Note  this  is  not  the  only  balance  envelope  which  could  have 
been  solved.  If  this  envelope  had  been  extended  to  include 
unit  6,  the  solution  would  have  been  much  easier  (Figure  A-3). 
The  balance  routine  attempts  the  first  plausible  balance  en¬ 
velope  encountered.  Had  this  alternate  envelope  been  used  the 
results  would  be  slightly  different.  This  is  because  real  data 
is  used.  This  suggests  a  further  extension  to  PACER.  A  rou¬ 
tine  which  checks  the  data  for  errors  is  required.  Also  an 
additional  subroutine  should  be  supplied  to  the  balance  routine 
which  uses  a  least  squares  criterion  for  solution  of  a  set  of 
equations  which  is  larger  in  number  than  the  unknowns  involved. 
Some  work  along  this  line  was  presented  by  Ripps(16). 

Figure  A-4  shows  the  current  status  of  the  prob¬ 
lem:  known  streams  are  shown  by  solid  lines  and  the  units 
for  which  all  inputs  are  known  are  shaded.  Referring  to  Figure 
A-4,  all  input  streams  to  unit  1  are  known  and  a  balance  around 
unit  1  allows  the  calculation  of  the  unknown  elements  of  the 
output  stream  variables  vectors  (stream  2,  9  and  12).  This 
is  accomplished  by  subroutine  EQUIP  calling  SEQCAL  since  no 
equipment  subroutine  exists  for  unit  1  (see  Figures  VI  and  VII) 
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MAJOR  continues  searching  for  other  units  having  all  input 
streams  known.  Since  streams  3  and  11  are  known,  MAJOR  calls 
EQUIP  to  calculate  unit  4.  SEQCAL  is  called  by  EQUIP  since 
NEXEQN  ( 4 )  is  positive.  Thus,  stream  14  is  calculated  di¬ 
rectly  by  material  balance. 

MAJOR  continues  scanning  the  process  matrix. 

Unit  6  can  be  calculated  in  a  similar  manner.  Unit  7  is  like¬ 
wise  calculated  by  material  balance.  Refer  to  Figure  A-4. 

The  process  matrix  is  rescanned  and  now  unit  5  can  be  calcu¬ 
lated  directly,  Figure  A-5.  However,  since  streams  4  and  6 
are  already  known  the  executive  program  does  not  call  SEQCAL 
to  calculate  them.  Again,  MAJOR  continues  the  search  for 
units  with  all  input  streams  known. 

But  no  more  units  can  be  calculated  directly. 
MAJOR  calls  BALNCE  again.  This  time  when  BALNCE  finds  an  en¬ 
velope  involving  feed  stream  1  and  units  2  and  3  (see  Figure 
A-5) ,  stream  2  is  totally  known  and  the  unknowns  associated 
with  streams  1,  16  and  17  are  calculated.  Control  again  re¬ 
turns  to  MAJOR.  The  process  matrix  is  scanned  and  unit  2  is 
found  to  have  all  its  input  streams  known.  MAJOR  calls  EQUIP, 
which  since  NEXEQN (2)  is  positive,  calls  SEQCAL.  Stream  13  is 
calculated  directly  by  SEQCAL  by  material  balance.  Control 
returns  to  MAJOR  and  the  scan  of  the  process  matrix  continues. 
Now  unit  3  has  all  its  input  streams  known.  MAJOR  calls  EQUIP. 
However,  streams  3  and  17  are  likewise  known  therefore  SEQCAL 
need  not  be  called.  No  more  units  are  flagged  as  being  un- 
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known  therefore  the  process  calculation  is  complete. 

Note  that  although  recycle  is  involved,  no  trial 
and  error  calculations  were  necessary.  Also  no  feed  streams 
were  totally  specified  and  no  equipment  subroutines  were  re¬ 
quired  . 
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TABLE  A-3 

Solution  to  Example  I 
(refer  to  Table  A-4) 


The  Recycle  Ratios 

Kammermeyer 

1. 

stream  2/stream  1 

0.94 

2. 

stream  ll/stream  3 

0.102 

Program 

0.933 

0.0974 


Mass  Flow  Rate  of  Water 

1.  added  at  15 

2.  removed  at  12 


11,810. 

13,924. 


11,796 

13,915 
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TABLE  A- 4 

Stream  Variables  Matrix  at  Run  3 


1.0000 

0.0000 

0.0500 

0.0000 

2.0000 

0.0000 

0.0740 

0.0000 

3.0000 

0.0370 

0.2490 

190.0000 

4.0000 

0.1500 

0.0010 

189.2752 

5.0000 

0.0000 

0.9930 

0.0000 

6.0000 

0.0000 

0.7390 

0.0000 

7.0000 

0.0090 

0.0270 

149.1072 

8.0000 

0.2000 

0.0000 

0.0000 

9.0000 

0.0000 

0.0000 

0.0000 


1.0000 

0.0000 

4913.6993 

0.0000 

0.0000 

0.0960 

3944.2186 

0.0000 

0.0000 

0.0830 

3980.0000 

410.0000 

0.0000 

0.0160 

80.6172 

546.7949 

0.0000 

0.0000 

59.6515 

0.0000 

0.0000 

0.0430 

3959.0343 

0.0000 

2.0000 

0.0000 

2.0356 

321.1149 

2.0000 

0.0000 

0.0000 

0.0000 

2 . 0000 
0.6440 
14.8157 
0.0000 


5172.3151 

0.0000 

0.0000 

0.0000 

4827.6849 

0.0000 

0.0000 

62.7599 

10000.0000 

0.0190 

1480.0000 

250.0000 

3505.0957 

0.0540 

2103.0574 

0.0000 

11843.0922 

0.0000 

0.0000 

0.0000 

19312.3623 

0.0000 

0.0000 

251.0607 

508.8984 

0.2930 

18.3203 

0.0000 

1974 .9907 
0.0000 
1461.6797 
0 . 0000 

569.8351 
0.0000 
0.0000 
188 . 0456 


0.9500 

0.0000 

0.0000 

258.6157 

0.8170 

0.0000 

0.0000 

357.2487 

0.3980 

0.0410 

370.0000 

2490.0000 

0.0230 

0.1560 

525.7644 

3.5051 

0.0070 

0.0000 

0.0000 

11786.4011 

0.2050 

0.0000 

0.0000 

14271.8357 

0.0040 

0.6310 

4.5801 

13.7403 

0.0000 

0.0000 

365.4199 

0.0000 

0 . 0260 
0.0000 
0.0000 
0.0000 


0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0130 

463.4578 

0.0000 

0.1480 

0.0250 

830.0000 

0.0000 

0.6000 

0.0000 

56.0815 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0130 

830.4316 

0.0000 

0.0360 

0.0000 

0.0000 

0.0000 

0.8000 

0.0000 

0.0000 

0.0000 

0.0000 

0.3300 

366.9738 

0.0000 
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10.0000 

0.0080 

0.0070 

148.3824 

11.0000 

0.1600 

0.0000 

0.0000 

12.0000 

0.0000 

1.0000 

0.0000 

13.0000 

-0.0000 

0.0616 

-0.0000 

14.0000 

0.0479 

0.2269 

190.0000 

15.0000 

0.0000 

1.0000 

0.0000 

16.0000 

0.0759 

0.3842 

190.0000 

17.0000 

0.0000 

0.0000 

0.0000 


0.0000 

0.0000 

61.6871 

319.5501 

0.0000 

0.0580 

0.0000 

138.3599 

2.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0463 

8857.9178 
-0.0000 

0.0000 

0.0808 

3980.0000 

548.3599 

1.0000 

0.0000 

0.0000 

0.0000 

1.0000 

0.0751 

0.0000 

410.0000 

2.0000 

0.0000 

4877.9178 
0.0000 


555.7393 

0.2670 

17.7837 

0.0000 

974.3657 

0.0000 

623.5941 

0.0000 

13914.8422 

0.0000 

0.0000 

0.0000 

10000.0000 

-0.0000 

-0.0000 

62.7599 

10974.3657 

0.0173 

2103.5941 

250.0000 

11796.2513 

0.0000 

0.0000 

0.0000 

4877.9178 

0.0390 

1480.0000 

187.2401 

4877.9178 

0.0000 

0.0000 

0.0000 


0.1110 

0.5750 

4.4459 

3.8902 

0.0000 

0.1420 

155.8985 

0.0000 

0.0000 

0.0000 

0.0000 

13914.8422 

0.8858 

-0.0000 

-0.0000 

615.8644 

0.3627 

0.0500 

525.8985 
2490.0000 

0.0000 

0.0000 

0.0000 

11796.2513 

0.0000 

0.0841 

370.0000 

1874.1356 

1.0000 

0.0000 

0.0000 

0.0000 


0.0320 

0.0000 

0.0000 

0.0000 

0.6400 

0.0000 

56.5132 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

-0.0000 

0.0063 

463.4578 

-1.0000 

0.1917 

0.0228 

886.5132 

-0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.3034 

0.0384 

366.5422 

10000.0000 

0.0000 

0.0000 

0.0000 

10000.0000 


' 


C 000.0 


' 


0000.0 
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Reference : 

Flow  Diagram: 
Statement : 


APPENDIX  B 
Example  II 

Ch.E.  562  (Mass  Transfer)  Problem  Assignment 
Dr.  F.D.  Otto 
Figure  B-l 

In  a  proposed  process  mixtures  of  n-butanol  and 
methyl-n-butyl  ketone  must  be  separated.  Since 
the  mixture  is  reported  to  form  an  azeotrope, 
extraction  with  water  is  to  be  investigated. 
Liquid  equilibria  are  provided  by  Jones  and 
McCants  (Ind.  Eng.  Chem.  ,  46_,  1965)  at  100°F, 
Table  B-2 

A  -  ketone 
B  -  water 
C  -  butanol 

Refer  to  Table  B-l  for  stream  compositions 
To  obtain  the  composition  of  stream  14  a  sol¬ 
vent  free  coordinate  (water  free)  diagram  was 
used.  This  composition  was  simply  supplied  to 
the  program  as  part  of  the  input  data. 

Referring  to  Figure  B-l,  units  10  and  11  are 
pseudo-units  introduced  to  conveniently  handle 
the  fact  that  the  reflux  ratio  is  specified. 

The  subroutine  for  these  units  was  the  only 


Note : 
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Unit 


S/\ME.  A>S  FIGURE. 
Figure  B-l 

Flow  Diagram  for  Example  II 


Function  Unit 

extractor  6 

still  7 

condenser-separator  8 

splitter  9 

still  10 

11 


Function 

solvent  storage 
still 

condenser- separator 
mixer 

pseudo  unit 
pseudo  unit 


TABLE  B-l 


Composition  (wt.%) 


Stream 

A 

B 

C 

16 

0.971 

0.029 

o 

• 

o 

6 

7 

o 

• 

o 

0.203 

0.797 

8 

5 

o 

• 

o 

0.928 

0.072 

12 

0.015 

0.985 

0.00 

2 

0.0035 

0.933 

0.0635 

14 

0.9505 

0.0301 

0.0194 

ee  - 
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TABLE  B-2 

Equilibrium  Data  for  Example  II 


1.  Solubility  Data  (weight  percent)  at  100°F 


BuOH  =  C  Ketone  =  A  Water  =  B 


Organic  Rich  Curve 


79.7 

0.0 

20.3 

77.0 

3.1 

19.9 

74.7 

6.0 

19.3 

66.7 

16.0 

17.3 

56.6 

28.4 

15.0 

44.2 

44.3 

11.5 

30.5 

61.1 

8.4 

18.9 

75.5 

5.6 

11.3 

84.5 

4.2 

0.0 

97.1 

2.9 

Water  Rich  Curve 


0.0 

1.5 

98.5 

3.6 

1.0 

95.4 

7.2 

0.0 

92.8 

2.  Tie  Line  Data 


Organic  Phase 


66.7 

16.0 

17.3 

55.0 

30.6 

14.4 

37.5 

52.0 

10.5 

11.3 

84.6 

4.1 

Water  Phase 

6.4 
5.1 
3.6 

1.5 


0.3 

0.6 

1.0 

1.5 


93.3 

94.3 

95.4 
97.0 


a.pe 
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Assume : 


equipment  subroutine  written  for  this  example 
and  it  simply  calculates  the  unknown  flow  rate 
in  the  recycle  ratio  when  the  other  is  speci¬ 
fied  . 

No  ternary  azeotrope  is  reported. 

1.  Distillation  of  extract  (stream  2)  yields 
butanol-water  azeotrope  (stream  3) .  The 
water-rich  layer  of  condensate  (stream  5)  is 
returned  as  still  reflux,  while  the  butanol- 
rich  layer  provides  extractor  reflux  (stream 
7)  and  the  stream  8.  Stream  8  is  rectified 
to  give  stream  9  (same  composition  as  stream 
3)  and  the  extract  product  stream  10.  Re¬ 
sidues  (stream  11)  may  be  assumed  to  be  free 
of  butanol. 

2.  Raffinate  stream  14,  when  rectified  provides 
the  ketone  water  azeotrope  (stream  15) ,  the 
ketone-rich  layer  (stream  16)  of  which  is 
returned  to  the  still  while  the  water-rich 
layer  (stream  12)  is  withdrawn.  Residue 
(stream  17) ,  raffinate  product  may  be  assumed 
to  be  free  of  water. 

3.  The  azeotrope  compositions  are: 

stream  3  and  9  =  42.5%  water 
stream  15  =  30%  water 

4.  Streams  5,  7,  16,  and  17  are  saturated  liquids. 


.bsiioqs'i  ex  aqo^sdossfi  y**11?9*  oW 


'  r  -  2- 


. lonedud  io 

.  £ 

.r:76^bddiw  ei  (£1  meexla)  -XfiYS-t 


B6 


The  specifications  of: 

1.  feed:  1000  lb/hr  50%  ketone,  50%  butanol 

2.  extract  product:  2%  water,  98%  butanol 

3.  raffinate  product:  2%  butanol,  98%  ketone 

4.  extract:  95%  butanol,  5%  ketone  on  water 
free  basis 

Extract  reflux  (stream  7/stream  10)  is  2.0  (total  weights). 
Determine  total  rates  of  all  streams. 
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TABLE  B-3 

Solution  to  Example  II 


Stream 


Mass  Flow  Rate  (lb/hr) 

Program  Hand  Calculation 

(refer  to  Table  B-4) 


2 

20259.3 

20270. 

3 

2343.0 

2347. 

5 

843.6 

847. 

6 

1911.4 

1893. 

7 

999.6 

1000. 

8 

911.8 

893  . 

10 

499.8 

500. 

11 

18759.9 

18770. 

12 

15.8 

16.0 

13 

18785.7 

18796. 

14 

526.0 

526.0 

15 

55.7 

56.4 

16 

39.9 

40.4 

17 

510.2 

510. 

18 

9.996 

10. 

Stream  Component 


11  1  0 
2  0 
3  0 
1  0 
2  0 
3  0 


Composition 


9962 

0.996 

0038 

0.004 

0 

o 

• 

o 

9962 

0.996 

0038 

0.004 

0 

0.0 
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TABLE  B-4 

Stream  Variables  Matrix  at  Run  2 


1.0000 

0.5000 

1.0000 

0.0000 

1000.0000 

500.0000 

0.0000 

500.0000 

0.5000 

0.0000 

2.0000 

0.0635 

0.0000 

18901.9031 

20259.2747 

70.9075 

0.9330 

1286.4640 

0.0035 

0.0000 

3.0000 

0.5750 

0.0000 

995.7580 

2342.9599 

0.0000 

0.4250 

1347.2019 

0.0000 

0.0000 

4.0000 

0.5750 

0.0000 

1170.8539 

2754 . 9504 
0.0000 

0.4250 

1584.0965 

0.0000 

0.0000 

5.0000 

0.0720 

0.0000 

782.8463 

843.5844 

0.0000 

0.9280 

60.7381 

0.0000 

0.0000 

6.0000 

0.7970 

0.0000 

388.0070 

1911.3647 

0.0000 

0.2030 

1523.3576 

0.0000 

0.0000 

7.0000 

0.7970 

0.0000 

202.9154 

999.5835 

0.0000 

0.2030 

796.6680 

0.0000 

0.0000 

8.0000 

0.7970 

0.0000 

185.0918 

911.7822 

0.0000 

0.2030 

726.6904 

0.0000 

0.0000 

9.0000 

0.5750 

0.0000 

175.0960 

411.9905 

0.0000 

0.4250 

236.8945 

0.0000 

0.0000 

10.0000 

0.9800 

0.0000 

9.9958 

499.7918 

0.0000 

0.0200 

489.7959 

0.0000 

0.0000 

11.0000 

0.0000 

0.0000 

18688.9917 

18759.8992 

70.9075 

0.9962 

0.0000 

0.0038 

0.0000 

12.0000 

0.0000 

0.0000 

15.5433 

15.7800 

0.2367 

0.9850 

0.0000 

0.0150 

0.0000 

13.0000 

0.0000 

0.0000 

18714.5305 

18785.6748 

71.1442 

0.9962 

0.0000 

0.0038 

0.0000 

14 . 0000 
0.0194 

0.0000 

15.8321 

525.9838 

499.9476 

0.0301 

10.2041 

0.9505 

0.0000 

15.0000 

0.0000 

0 . 0000 
16.7000 

55 .6668 

38 .9668 

0.3000 

0.0000 

0.7000 

0.0000 

0000. I 
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16.0000 

0.0000 

0.0000 

1.1567 

39.8868 

38.7301 

0.0290 

-0.0000 

0.9710 

-0.0000 

17.0000 

0.0200 

2.0000 

0.0000 

510.2041 

500.0000 

0.0000 

10.2041 

0.9800 

0.0000 

18.0000 

0.0000 

1.0000 

9.9958 

9.9958 

0.0000 

1.0000 

0.0000 

0.0000 

0.0000 

19.0000 

0.7970 

0.0000 

202.9154 

999.5835 

0.0000 

0.2030 

796.6680 

0.0000 

0.0000 

20.0000 

0.9800 

2.0000 

9.9958 

499.7918 

0.0000 

0.0200 

489.7959 

0.0000 

0.0000 

oooo. ooe 
oooo.o 
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APPENDIX  C 

Example  III 

Reference : 

"Basic  Principles  and  Calculations  in  Chemical 

Engineering";  Himmelblau;  page  352;  problem  5-14 

Flow  Diagram: 

Figure  C-l 

Statement : 

Grain  mash  is  fed  through  a  heat  exchanger  where 

it  is  heated  to  170°F.  The  alcohol  is  removed  as 

60%  alcohol  from  the  first  column.  The  bottoms 

contain  no  alcohol.  The  60%  alcohol  is  further 

fractionated  to  95%  alcohol  and  essentially 

pure  water  in  the  second  column.  Heat  is  sup¬ 
plied  to  the  bottoms  of  the  columns  by  steam. 

Condenser  water  is  available  at  80°F. 

Feed  specification  (streams  1  and  2) : 

80%  water 

10%  ethanol 

10%  organic  material 

a)  Determine  the  weight  of  the  following  streams 

in  pounds  per  hour: 

1.  overhead  product  Column  I 

2.  reflux  Column  I 

3 .  bottoms  Column  I 

4.  overhead  product  Column  II 

5.  reflux  Column  II 

6.  bottoms  Column  II 

bottoms  Column  II 
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Figure  C-l 

Flow  Diagram  for  Example  III 


Unit 


Function 


1 

2 

3 

4 

5 

6 

7 

8 
9 


Heat  Exchanger  III 
Column  I  (3/1  reflux) 
Condenser  I 
Splitter 

Heat  Exchanger  I 
Column  II  (3/1  reflux) 
Condenser  II 
Splitter 

Heat  Exchanger  II 


noi j  soul 

■ 
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b)  Calculate  the  temperature  of  the  bottoms 
leaving  the  heat  exchanger  III. 

c)  Calculate  water  requirements  for  each  con¬ 
denser  and  heat  exchanger  III  if  the  exit 
temperature  of  the  water  from  this  equipment 
is  13  0°F . 

Although  recycle  is  involved  (see  Figure  C-l) , 
the  solution  can  be  completed  without  the  use  of 
the  PACER  recycle  routines.  However,  it  will  be 
solved  both  with  the  PACER  recycle  subroutines 
and  without  them. 

Solution  I  (using  PACER  recycle  routine) 

Referring  to  Figure  C-2,  the  flowsheet  is  modi¬ 
fied  slightly  to  be  adapted  to  PACER  input. 

An  equipment  subroutine  is  required  to  calculate 
the  split  attained  in  units  4  and  8.  Also  equipment  subrou¬ 
tines  are  required  to  calculate  the  cooling  water  flow  rates 
and  steam  rates  after  the  balance  routine  calculated  the  heat 
loads  (streams  8,  9,  12,  and  13). 

Trial  and  error  via  PACER  recycle  routines  is 
required  for  units  2,  3  and  4  and  units  6,  7  and  8.  Units  1 
and  2  also  constitute  a  recycle  loop,  however,  unit  1  can  be 
calculated  directly  after  the  recycle  calculation  of  units  2, 

3  and  4  converge.  Note  that  units  2,  3  and  4  could  be  considered 
as  a  single  unit  requiring  one  unit  subroutine. 
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Figure  C-2 

Flowsheet  for  Solution  I 
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For  solution  one,  stream  6  is  assumed  and  units 
2,  3  and  4  calculated.  The  values  of  the  stream  variables  of 
stream  6  calculated  by  the  equipment  subroutine  for  unit  4  are 
used  for  the  next  iteration.  When  the  calculations  for  this 
recycle  loop  converge  units  1  and  5  can  be  calculated  by  the 
material  and  energy  balance  routine.  Then  the  calculation  of 
units  6,  1  and  8  are  commenced. 

Solution  II  (avoids  trial  and  error) 

The  alternate  flowsheet  which  will  omit  trial 
and  error  calculations  of  recycle  loops  is  shown  in  Figure 
C-3.  The  balance  routine  is  "tricked"  into  performing  a 
balance  around  units  2,  3,  4  and  10  by  the  introduction  of  an 
unknown  feed  stream  of  zero  mass  flow  rate  (stream  22,  Figure 
C-3).  Similarly  with  stream  23  for  unit  6.  The  balance  rou¬ 
tine  detects  this  unknown  feed  stream  and  attempts  to  solve 
for: it  by  performing  a  balance  around  units  2  and  10.  This 
fails;  however,  upon  its  extension  to  include  units  3  and  4, 
the  balance  routine  is  able  to  solve  for  unknowns  in  streams  3 
and  7  as  well  as  22.  The  routine  is  not  able  to  solve  the 
energy  balance.  That  is,  heat  flows  (streams  2  and  9)  remain 
unknown . 

Psuedo-units (10,11, 12,13)  must  be  supplied  to 
provide  the  reflux  relationship.  If  stream  7  is  calculated 
for  example,  the  equipment  subroutine  for  unit  11  calculates 


streams  6  and  25. 
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Figure  C-3 


Flowsheet  for  Solution  II 
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Even  if  the  balance  envelopes  shown  on  Figure 
C-3  were  to  fail,  MAJOR  could  resort  to  the  same  trial  and 
error  calculation  presented  in  Solution  I.  Stream  22  and 
23  can  be  calculated  and  flag  known  by  SEQCAL  since  its  flow 
rate  (zero)  is  specified  along  with  any  pseudo-composition 
(all  zeros  for  example)  and  its  component  flow  rates  are  un¬ 
known.  For  example, 


22.  1.  0. 


0.  0.  0.  -1.  -1.  -1.  0. 


overall 

mass 

flow 

rate 


composition 

(weight 

fraction) 


component 

mass 

flows 


A  summary  of  the  solutions  is  presented  in 
Table  C-l .  The  stream  variable  matrix  is  listed  in  Table  02 . 

Note  that  the  steam  requirements  for  Column  II 
vary  significantly  from  those  presented  by  Himmelblau.  This 
is  because  he  presents  his  physical  property  data  as  stream 
properties  without  any  pressures.  Thus,  it  was  not  possible 
to  duplicate  his  data  accurately. 

Referring  to  Figure  C-2,  note  that  streams  1 
and  2  are  both  specified.  Had  only  stream  1  been  specified 
then  units  1,  2,  3,  and  4  would  have  to  solved  via  the  trial 
and  error  routine  in  PACER.  This  problem  arises  in  cases  such 
as  unit  1  in  Figure  C-2  where  the  streams  2  and  3  are  similar 
in  composition  and  the  program  logic  is  unable  to  determine  if 
the  streams  are  intermixed.  As  a  possible  solution  to  this 
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problem,  units  which  have  no  intermixing,  such  as  heat  ex¬ 
changers,  could  have  their  respective  process  streams  "paired" 
in  the  process  matrix.  This  would  be  recognized  by  the  materi¬ 
al  and  energy  balance  routine  and  the  compositions  and  flow 
rates  of  these  "paired"  streams  equated.  For  example,  rather 
than 

1  13-2  -18 

the  process  matrix  row  for  equipment  one  could  be 

1  (1,-2)  (3,-18) 
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TABLE  C-l 

Solution  to  Example  III 

(Refer  also  to  Table  C-2) 


1.  Material  Balance 


j 

Himmelblau 

Program 

I 

Solution 

II 

Overhead  product 
Column  I  (stream  I) 

1667  lb/hr 

1662.2  lb/hr 

1667  lb/hr 

Reflux  Column  I 
(stream  6) 

5000  lb/hr 

4986.6  lb/hr 

5000  lb/hr 

Overhead  Product 
column  II  (stream  16) 

1050  lb/hr 

1046.9  lb/hr 

1052.6  lb/hr 

Bottoms  Column  I 
(stream  3) 

8333  lb/hr 

8333  lb/hr 

8333  lb/hr 

Reflux  Column  II 
(stream  15) 

3150  lb/hr 

3141  lb/hr 

3157.9  lb/hr 

Bottoms  Column  II 
(stream  19 

617  lb/hr 

612.4  lb/hr 

614.0  lb/hr 

2 .  Energy  Balance 

Cooling  Water  (lb/hr) 

Condense^  I 
(unit  3) 

90,000. 

84,138. 

84,363 

Condense!  II 
(unit  1) 

55,200. 

34,870. 

35,060. 

Heat  Exchanger  II 
(unit  9) 

907  . 

874. 

879. 

Steam  Loads  (btu/hr) 

Heat  Exchanger  I 
(unit  5) 

1,125,000 

1,051,720 

1,054,540 

Column  I  (unit  2) 

4,842,000 

4,548,000 

4,559,000 

Column  II  (unit  6) 

1,645,000 

700,931 

707,618 

Temperature  (°R) 
Stream  18 

566.5 

565.5 

565.5 

Z-0  ©Id  iT  0±  OlIs 
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TABLE  C-2 
(Solution  II) 

Stream  Variables  Matrix  at  Run  1 


1.0000 

0.1000 

1.0000 

8000.0000 

10000.0000 

1000.0000 

0.8000 

1000.0000 

0.1000 

540.0000 

2.0000 

0.1000 

0.0000 

8000.0000 

10000.0000 

1000.0000 

0.8000 

1000.0000 

0.1000 

630.0000 

3.0000 

0.1200 

0.0000 

7333.3333 

8333.3333 

0.0000 

0.8800 

1000.0000 

0.0000 

670.0000 

4.0000 

0.0000 

0.0000 

2666.6666 

6666.6666 

4000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

5.0000 

0.0000 

0.0000 

2666.6666 

6666.6666 

4000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

6.0000 

0.0000 

0.0000 

2000.0000 

4999.9999 

3000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

7.0000 

0.0000 

0.0000 

666.6667 

1666.6667 

1000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

8.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-1054538.4844 

9.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

4218153.9375 

10.0000 

0.0000 

0.0000 

666.6667 

1666.6667 

1000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

11.0000 

0.0000 

0.0000 

210.5263 

4210.5262 

3999.9999 

0.0500 

0.0000 

0.9500 

632.0000 

12.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

1753002.1406 

13.0000 

-0.0000 

2.0000 
-0 .0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

43957.8936 

14.0000 

0.0000 

0.0000 

210.5263 

4210.5262 

3999.9999 

0.0500 

0.0000 

0.9500 

620.0000 

15.0000 

0.0000 

0.0000 
157 .8947 

3157.8947 
2999 . 9999 

0.0500 

0.0000 

0.9500 

620.0000 

OT)  C  .0^001 

0000. 0001 

0000.0008 

0001.0 

' 
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16.0000 

0.0000 

0.0000 

52.6316 

1052.6316 

1000.0000 

0.0500 

0.0000 

0.9500 

620.0000 

17.0000 

0.0000 

2.0000 

52.6316 

1052.6316 

1000.0000 

0.0500 

0.0000 

0.9500 

560.0000 

18.0000 

0.1200 

2.0000 

7333.3333 

8333.3333 

0.0000 

0.8800 

1000.0000 

0.0000 

565.4560 

19.0000 

0.0000 

2.0000 
614 . 0351 

614.0351 

0.0000 

1.0000 

0.0000 

0.0000 

670.0000 

20.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-707618.7422 

21.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-4559567.2500 

22.0000 

0.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

23.0000 

0.0000 

1.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

24 .0000 
0.0000 

0.0000 

2000.0000 

4999.9999 

3000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

25.0000 

0.0000 

0.0000 

666.6667 

1666.6667 

1000.0000 

0.4000 

-0.0000 

0.6000 

636.0000 

26.0000 

0.0000 

0.0000 

157.8947 

3157.8947 

2999.9999 

0.0500 

0.0000 

0.9500 

620.0000 

27.0000 

0.0000 

0.0000 

52.6316 

1052.6316 

1000.0000 

0.0500 

-0.0000 

0.9500 

620.0000 

0000. s 

' 
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Flow  Diagram: 
Statement : 


APPENDIX  D 
Example  IV 

"Stoichiometry  for  Chemical  Engineers"; 

Williams  and  Johnson;  page  258,  example  6-20. 

See  Figure  D-l 

Vinylacetate  monomer  may  be  made  through  the 
reaction  of  acetylene  with  acetic  acid: 

c2h2  +  ch3cooh  - *  ch3coochch2 

Make-up  and  recycle  acetic  acid  (HAC)  is  vapo- 
ized  and  mixed  with  make-up  and  recycle  acety¬ 
lene  (C2H2)  and  preheated  to  356°F*.  The  gaseous 
mixture  is  blown  through  the  catalytic  reactor 
where  60%  of  the  HAC  is  converted  with  a  98% 
yield  to  vinylacetate  (VA) .  The  yield  of  VA 
on  C2H2  is  95%.  All  impurities  formed  are  to 
be  treated  as  acetaldehyde  (CH3COH  or  AC) .  The 
hot  gaseous  effluent  from  the  reactor  there¬ 
fore  contains  C2H2,  HAC,  VA  and  AC.  The  VA 
effluent  proceeds  through  a  cooler  to  a  condensa 
tion  system.  A  small  loss  of  C2H2  occurs  but  es 
sentially  complete  separation  of  C2H2  from  the 
other  compounds  is  effected.  The  condensate 
passes  to  a  distillation  column  in  which  AC  is 
taken  off  overhead  and  the  final  product,  VA,  is 


■ 


, 
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a  side  stream.  The  bottoms  from  the  VA  column 
are  distilled  in  a  second  column  where  VA  is 
removed  overhead.  A  3%  loss  of  VA  and  a  4% 
loss  of  HAC  can  be  expected  in  the  columns. 

Other  compositions  and  temperature  are  shown  on 
Figure  D-l. 

Using  this  information,  calculate: 

a)  material  balance  showing  amounts  of  each 
constituent  in  the  numbered  streams 

b)  quantity  of  heat  in  btu/hr  that  must  be  added 
in  the  vaporizing,  mixing,  and  preheating 
section 

c)  size  (in  gallons)  of  the  holdup  tank  for  the 
Dowtherm  A 

d)  quantity  of  heat  in  btu/hr  that  must  be 
removed  in  the  VA  condenser 

e)  quantity  of  heat  in  btu/hr  that  must  be 
added  in  the  reboiler  of  the  HAC  column. 

100.0  moles  of  VA  formed  in  the  reactor.  From 
this  and  the  above  information,  the  information 
in  Table  D-l  represents  the  input  data  calculated 
for  PACER  input. 
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Figure  D-l 

Flowsheet  of  Vinyl  Acetate  Plant 
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TABLE  D-l 


Stream  Variables  Vectors  for  Example  IV 


Stream 


Mass  Flow 
Rate 

13 

12 

5 

6  &  15 

Overall 

8868.733 

8868.733 

50110.634 

50110.635 

Component 

HAC 

0. 

6127.502 

10216.907 

4089.405 

vf2 

0. 

2741.231 

39874.010 

37132.780 

8610. 

0. 

19.717 

8629.717 

AC 

258.733 

0. 

258.733 

Mass 

Fraction 

HAC 

0. 

.6909 

.2039 

.08161 

vf2 

0. 

.3091 

.7  957 

.74102 

0.9708 

0. 

.  0039 

.17221 

AC 

0.0292 

0. 

0. 

. 00516 

Mass  Flow 
Rate 

3 

7 

9  &  21 

4 

Overall 

37132.7801 

12977.855 

8376.657 

3945.786 

Component 

HAC 

0. 

4089.405 

1.57 

3926.069 

vf2 

37132.780 

0. 

0. 

0. 

0. 

8629.717 

8351.109 

19.717 

AC 

0. 

258.733 

24.041 

0. 

Mass 

Fraction 

HAC 

0. 

.3151 

.00028 

.995 

C0H0 

1. 

0. 

0. 

0. 

vl  2 

0. 

.6650 

.997 

.005 

AC 

0. 

.0199 

.00287 

0. 
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legend 

same  As  figure  A-a 


Figure  D-2 

Flowsheet  for  Vinyl  Acetate  Plant  Modified 

for  Computer  Solution 
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Solution  to  Example  IV 

a)  Material  Balance  -  See  Table  D-2 

b)  Quantity  of  heat  in  btu/hr  that  must  be  added  in  the 

vaporizing,  mixing  and  preheating  sections: 

Williams  7260000. 

Program  9220000. 

c)  Size  (in  gallons)  of  holdup  tank: 

Williams  800. 

Program  1125. 

d)  Quantity  of  heat  in  btu/hr  that  must  be  removed  in  VA 
condenser : 

Williams  3660000. 

Program  4138000. 

e)  Quantity  of  heat  in  btu/hr  that  must  be  added  in  the  re¬ 
boiler  of  the  HAC  column: 

Williams  985000. 

Program  1530000. 

f)  Temperature  of  stream  17  is: 

Williams  655. 2°R 

Program  656. 8°R 

Differences  in  the  heat  loads  as  presented  by  Williams 
from  those  obtained  from  the  program  are  significant, 
suits  again  from  the  physical  property  data  employed. 


This  re- 
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TABLE  D-2 


Solution 

to  Example  IV  -  Material 

Balance 

Stream 

(see  Table  D-3) 

Williams 

Program 

1 

2926. 

2926.89 

2 

6290. 

6291.84 

8 

269. 

269.03 

11 

386. 

386.38 

18 

22600. 

22616.97 

24 

6025. 

6025.49 

. 
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TABLE  D-3 

Stream  Variables  Matrix  at  Run  4 


1.0000 

-0.0000 

-0.0000 

1.0000 

-0.0000 

528.0000 

2926.8940 

-0.0000 

0.0000 

2926.8940 

1.0000 

-0.0000 

2.0000 

-0.0000 

-0.0000 

1.0000 

-0.0000 

528.0000 

6291.8380 

6291.8380 

1.0000 

-0.0000 

-0.0000 

-0.0000 

3.0000 

-0.0000 

-0.0000 

0.0000 

-0.0000 

492.0000 

37132.7798 

-0.0000 

0.0000 

37132.7798 

1.0000 

-0.0000 

4.0000 

0.0050 

0.0000 

0.0000 

0.0000 

685.0000 

3945.7860 

3925.0690 

0.9950 

0.0000 

0.0000 

19.7170 

5.0000 

0.0004 

-0.0000 

0.0000 

0.0000 

816.0000 

50110.6338 

10216.9070 

0.2039 

39874.0098 

0.7957 

19.7170 

6.0000 

0.1722 

258.7330 

0.0000 

0.0052 

834.0000 

50110.6348 

4089.4050 

0.0816 

37132.7798 

0.7410 

8629.7170 

7.0000 

0.6650 

258.7330 

0.0000 

0.0199 

566.0000 

12977.8550 

4089.4050 

0.3151 

0.0000 

-0.0000 

8629.7170 

8.0000 

0.1290 

234.6920 

2.0000 

0.8724 

630.0000 

269.0287 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

34.7069 

9.0000 

0.9970 

24.0170 

0.0000 

0.0029 

623.0000 

8368.2803 

2.0562 

0.0003 

0.0000 

0.0000 

8343.0206 

10.0000 

0.0563 

-0.0000 

0.0000 

-0.0000 

690.0000 

4332.1693 

4087.8350 

0.9436 

-0.0000 

-0.0000 

243.9011 

11.0000 

0.5802 

-0.0000 

2.0000 
-0 . 0000 
643.0000 

386.3833 

162.7660 

0.4213 

-0.0000 

0.0000 

224.1841 

12.0000 

-0.0000 

-0.0000 

2.0000 

-0.0000 

10000.0000 

8868.7330 

6127.5020 

0.6909 

2741.2310 

0.3091 

-0.0000 

-  . 
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13.0000 

0.9708 

258.7330 

1.0000 

0.0292 

10000.0000 

8868.7330 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

8610.0000 

14.0000 

-0.0000 

-0.0000 

1.0000 

-0.0000 

5140000.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

15.0000 

0.1722 

258.7330 

0.0000 

0.0052 

726.0000 

50110.6348 

4089.4050 

0.0816 

37132.7798 

0.7410 

8629.7170 

16.0000 

-0.0000 

-0.0000 

0.0000 

-0.0000 

492.0000 

36947.1157 

-0.0000 

0.0000 

36947.1157 

1.0000 

-0.0000 

17.0000 

-0.0000 

-0.0000 

0.0000 

-0.0000 

656.8244 

36947.1152 

-0.0000 

0.0000 

36947.1157 

1.0000 

-0.0000 

18.0000 

0.9970 

64.9107 

0.0000 

0.0029 

623.0000 

22616.9739 

5.5573 

0.0003 

0.0000 

0.0000 

22548.7048 

19.0000 

0.9970 

40.8937 

0.0000 
0.0029 
623 . 0000 

14248.6936 

3.5011 

0.0003 

0.0000 

0.0000 

14205.6841 

20.0000 

0.9970 

64.9107 

0.0000 

0.0029 

623.0000 

22616.9739 

5.5573 

0.0003 

0.0000 

-0.0000 

22548.7048 

21.0000 
0.9970 
24 . 0410 

2.0000 
0.0029 
623 .0000 

8376.6570 

1.5700 

0.0003 

0.0000 

-0.0000 

8351.1090 

22.0000 

-0.0000- 

-0.0000 

1.0000 
-0.0000 
4671683 .8750 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

23.0000 

-0.0000 

-0.0000 

2.0000 

-0.0000 

8131285.1875 

-0 . 0000 
-0 . 0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

24.0000 

0.5802 

-0.0000 

0.0000 
0.0000 
643 . 0000 

6410.0989 

2700.2878 

0.4213 

0.0000 

-0.0000 
3719 . 2147 

25.0000 

0.5802 

-0.0000 

0.0000 
0.0000 
643 . 0000 

6025.4929 
2538 . 2705 

0.4213 

0.0000 

0.0000 

3496.0618 

. 
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26.0000 

0.0000 

384. 

0.5802 

0.0000 

162. 

-0.0000 

643.0000 

27.0000 

1.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

1527400.0625 

28.0000 

2.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

-1.0000 

29.0000 

2.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

4137978.2813 

30.0000 

2.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

168109.3711 

31.0000 

2.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

-9222628.8750 

32.0000 

0.0000 

36947. 

-0.0000 

-0.0000 

-0. 

-0.0000 

646.8244 

33.0000 

2.0000 

-0. 

-0.0000 

-0.0000 

-0. 

-0.0000 

6193684 .0000 

34.0000 

2.0000 

185. 

-0.0000 

-0.0000 

-0. 

-0.0000 

492.0000 

6059 

0173 

0.4213 

0.0000 

0.0000 

223.1529 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

1152 

0000 

0.0000 

36947.1157 

1.0000 

-0.0000 

0000 

0000 

-0.0000 

-0.0000 

-0.0000 

-0.0000 

6639 

0000 

0.0000 

185.6639 

1.0000 

-0.0000 

0000.0- 

0000.0- 
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APPENDIX  E 

Running  Times  for  Program 


Recycle 

Calculation 


Problem 

Streams 

Units 

Used 

Object  Time 

I 

17 

7 

No 

34  sec 

II 

20 

11 

No 

23  sec 

III 

Solution 

I 

21 

9 

Yes 

1  min.  8  sec 

Solution 

II 

27 

13 

No 

31  sec 

IV 

34 

13 

No 

3  9  sec 

>  ■ 
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APPENDIX  F 

The  following  pages  constitute  the  FORTRAN  IV  list¬ 
ings  of  the  subroutines  which  make  up  the  material  and  energy 
balance  routine.  None  of  the  subroutines  of  the  PACER  execu¬ 
tive  program  are  listed  although  subroutines  SCAN,  MAJOR,  SETUP, 
DREAD,  GUESS1 ,  TEST  and  EQUIP  were  altered  slightly  from  those 
presented  by  Mosler(9).  The  other  subroutines  in  the  PACER 
executive  program  remain  unchanged. 
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NOMENCLATURE 

1 .  PACER  VARIABLES 


DELS 

stream  variables  test  vector 

DELSC 

stream  control  variables  test  vector 

EN 

equipment  parameters  matrix 

ENC 

equipment  control  parameters  matrix 

12 

variable  for  PACER  equipment  numbers 

112 

variable  for  PACER  stream  numbers 

KBACK 

an  internal  variable  which  is  equal  to  zero 
except  when  the  problem  parameters  are  to  be 
varied  internally  by  CHANGE 

KCLEAN 

input  indicator  which  controls  the  process  of 
setting  all  matrices  to  zero  before  starting 
the  present  calculation 

KCVl 

KCV2 

KCV3 

record  unknown  streams  assumed  known  in  GUESSl 

KEl 

same  list  of  equipments  as  KE3  but  in  order  of 

KE2  list 

KE2 

first  list  of  equipments  formed  by  GUESS2  in 
attempting  to  use  iterative  solution 

KE3 

shortest  list  of  equipment  with  which  an  itera¬ 
tive  solution  can  be  performed 

KEFLAG 

equipment  flag 

KES 

an  indicator,  KES  ^  0  only  when  an  equipment  was 
calculated  directly  during  last  scan  of  KPM  matrix; 
this  indicates  another  scan  is  necessary 

KPM 

the  Process  Matrix 

KPMR 

dummy  Process  Matrix  into  which  the  input  cards 
are  read  before  storing 
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KPS 

the  preferred  streams  vector 

KRET 

if  KRET  =  2  the  streams  assumed  known  in  GUESS1 
were  not  satisfactory  for  an  iterative  solution 

KRET2 

if  KRET 2  =  2  calculation  has  failed 

KRET3 

indicator  telling  if  the  iterative  solution 
converged 

KRUN 

run  number  of  problem 

KSEM 

stream-equipment  matrix 

KSFLAG 

stream  flag 

KSETS 

indicator  controlling  the  amount  of  printout 

KUS 

list  of  unknown  streams  formed  in  GUESS1 

KVOID 

an  indicator  which  will  reject  a  problem  if  an 
equipment  name  has  been  given  incorrectly 

LIMIT 

used  in  TEST  to  indicate  if  a  stream  has  not 
entirely  converged  for  all  of  its  variables 

LIMIT2 

in  SETUP ,  if  LIMIT2  =  0,  convergence  has  been 
obtained 

LIMIT3 

used  in  TEST  to  count  each  stream  variable  and 
stream  control  variable  which  has  not  converged 

LOOP 

counts  iterative  loops 

LOOPS 

maximum  number  of  iterative  loops  allowed 

N2MAX 

number  of  rows  in  KPM 

N3MAX 

number  of  columns  in  KPM 

NAME 

equipment  subroutine  name  vector 

NDELS 

input  control  variable  for  DELS  vector 

NDELSC 

input  control  variable  for  DELSC  vector 

NE 

PACER  equipment  number 

NE1MAX 

number  of  equipments  in  KEl  list 

2ua 


-fV  ;  U  bsacj 

v> r x  J do 


-  .  7f 


Mq>i  ’  ;  mr  c  >  }0  o  dnicjn 


-  F4  - 

NE2MAX 

number  of  equipments  in  KE2  list 

NE3MAX 

number  of  equipments  in  KE3  list 

NECALL 

vector  of  call  numbers  of  equipments 

NECLMX 

length  of  equipment  control  parameters  vector 

NELMAX 

length  of  equipment  parameters  vector 

NEMAX 

maximum  equipment  number  in  the  problem 

NEQUIP 

number  indicating  which  equipment  subroutine 
to  call  in  calculating  an  equipment 

NEX 

PACER  equipment  number  of  KPM  row 

NEXEQN 

external  equipment  number 

NIN 

number  of  input  streams  to  a  given  equipment 

NOEN 

number  of  equipment  parameters  vectors  to  be  read 

NOENC 

number  of  equipment  control  parameters  vectors 
to  be  read 

NOGO 

input  indicator  determining  whether  a  non-converged 
set  of  answers  is  acceptable  if  LOOP  =  LOOPS 

NOKPM 

number  of  process  matrix  vectors  to  be  read 

NOKPS 

number  of  preferred  streams  to  be  read 

NOSN 

number  of  stream  variables  vectors  to  be  read 

NOSNC 

number  of  stream  control  variable  vectors  to 
be  read 

NOUT 

number  of  output  streams  from  a  given  equipment 

NPSMAX 

maximum  number  of  preferred  streams  to  be  sup¬ 
plied  in  the  input 

NSCLMX 

length  of  stream  control  variables  vector 

NSLMAX 

length  of  stream  variables  vector 

NSMAX 

maximum  stream  number  in  problem 

NSN 

variable  for  SN  row  number 
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NSNC 

variable  for  SNC  row  number 

NUSMAX 

total  number  of  streams  listed  in  the  unknown 
stream  vector 

SN 

stream  variables  matrix 

SNC 

stream  control  variables  matrix 

STRM 

dummy  matrix  into  which  input  data  is  read  before 
storing  in  proper  matrix;  also  used  for  storage  of 
information  when  performing  an  iterative  solution 

STRMC 

matrix  used  to  store  information  about  the  SNC 
matrix  when  performing  an  iterative  solution 

STRMCI 

matrix  used  to  store  SNC  row  vectors  of  streams 
entering  the  equipment  being  calculated 

STRMCO 

matrix  used  to  store  SNC  row  vectors  of  streams 
leaving  the  equipment  being  calculated 

STRMI 

matrix  used  to  store  SN  row  vectors  of  streams 
entering  the  equipment  being  calculated 

STRMO 

matrix  used  to  store  SN  row  vectors  of  streams 
leaving  an  equipment  being  calculated 

TITLE 

vector  storing  title  of  problem 

2 .  MATERIAL 

AND  ENERGY  BALANCE  ROUTINE  VARIABLES 

C 

vector  of  constants  associated  with  a  set  of 
linear  algebraic  equations 

CMPROP 

matrix  of  physical  properties  of  the  components 
involved.  Components  must  be  listed  in  the  same 
order  as  in  the  stream  variables  matrix  (compo¬ 
nent  properties  matrix) 

COEFF 

matrix  of  coefficients  associated  with  a  set  of 
linear  algebraic  equations 

KSTR 

an  indicator  which  counts  the  number  of  unknowns 
associated  with  a  particular  balance  envelope. 

It  is  the  length  of  the  NSTR  vector 
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K3STR 

stores  the  column  number  of  an  unknown  stream 
variables  matrix  element 

KPHAS 

an  indicator  used  in  subroutine  ENTHPY 

KTIMES 

an  indicator  used  in  subroutines  DEWPT  and  BUBPT 

LI 

a  counter  for  input  streams  to  a  balance  envelope 

LIP 

the  length  of  the  NIPT  vector 

LO 

a  counter  for  output  streams  from  a  particular 
balance  envelope 

LOP 

the  length  of  the  NOPT  vector 

LUNIT 

the  length  of  the  NUNIT  vector 

NALLOW 

a  vector  of  the  numbers  of  components  which  are 
not  allowed  to  be  used  for  a  component  balance 

NB 

an  indicator.  NB  is  greater  than  zero  if  material 
balance  calculations  around  a  balance  were  suc¬ 
cessful.  It  is  zero  otherwise. 

NCOMP 

the  number  of  components  in  a  stream  (SNC(NSN,4)) 

NEB 

an  input  flag.  If  NEB  is  one,  only  material 
balance  calculations  are  to  be  performed.  If  NEB 
is  two,  both  material  and  energy  balance  calcula¬ 
tions  are  to  be  performed.  If  NEB  is  three,  the 
same  as  two  except  without  consideration  of  pres¬ 
sure  in  the  calculation  of  enthalpies 

NFLAG 

an  indicator  which  signals  subroutine  SEQCAL  if 
any  calculations  were  made  on  the  previous  scan 
of  the  SN  matrix 

NFLG 

an  indicator  used  in  subroutine  BALNCE  which 
signals  when  an  attempt  is  being  made  to  extend 
a  previously  located  balance  envelope 

NGAUSS 

An  indicator  used  in  subroutine  SETEQ  which  sig¬ 
nals  that  there  is  no  need  to  seek  further  equa¬ 
tions  from  component  balances 

NIPT 

a  vector  of  numbers  of  streams  flowing  into  a 
balance  envelope 
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NKCOL 

a  vector  of  column  numbers  of  unknown  elements 
encountered  in  the  SN  matrix  when  writing  over¬ 
all  or  component  balance  equations 

NKSTR 

a  vector  of  row  numbers  (or  stream  numbers)  of 
unknown  elements  in  the  SN  matrix  encountered 
when  performing  material  balances 

NLEGTH 

the  length  of  the  NSTR  vector 
(NLEGTH  =  LIP  +  LOP) 

NOCOMP 

the  number  of  components  in  the  process 

NONOAL 

the  length  of  the  NALLOW  vector 

NOPT 

a  vector  of  the  number  of  streams  flowing  from  a 
balance  envelope 

NROW 

the  number  of  equations  obtained  from  material 
and  energy  balances  around  the  balance  envelope; 
also  the  number  of  rows  in  the  COEFF  matrix 

NSNSTR 

stores  the  row  number  (stream  number)  of  an 
unknown  stream  variables  matrix  element  (used 
in  SEQCAL) 

NSTR 

a  vector  of  the  numbers  of  all  streams  associ¬ 
ated  with  a  balance  envelope 

NUBAL 

a  vector  of  unit  numbers  which  are  to  be  examined 
after  the  first  element  of  the  vector  has  been 
examined;  it  appears  in  BALNCE 

NUBALO 

a  vector  of  unit  numbers  to  be  examined  when 
only  one  element  is  present  in  the  NUBAL  vector; 
that  is,  when  no  new  units  were  incorporated  into 
the  balance  envelope  on  the  last  scan 

NUFS 

the  number  of  the  unknown  input  stream  which  is 
to  be  solved  for 

NUWUFS 

the  number  of  the  unit  into  which  the  above 
stream  (NUFS)  flows 

NX9 

an  indicator  which  rejects  a  certain  component 
balance  when  both  overall  mass  flow  rate,  mass 
fraction  and  mass  component  flow  rate  are  un¬ 
known  for  that  component  (used  in  SETEQ) 
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an  indicator  which  indicates  that,  if  energy 
and  material  balances  are  to  be  performed  simul¬ 
taneously,  NOCOMP  component  balances  should  be 
attempted  in  certain  cases  (used  in  SETEQ) 

an  indicator  which  signals  the  failure  of  SETEQ 
to  effect  the  simultaneous  calculation  of  the 
material  and  energy  balances  for  a  given  balance 
envelope 

the  reference  temperature  in  °R 
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SEQCAL 
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SIMCAL 
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SUBRCUTINE  BALNCE 

COMMON  KPM,  N2 ,  N3,  N2MAX,  N3MAX,  KPMR 

COMMON  KEFLAG,  NE,  NEMAX 

COMMON  KSFLAG,  NS,  NSMIAX 

COMMON 

1CLMX 

COMMON 

EN,  NEN,  NEL,  NELMAX,  ENC,  NENC,  NECL ,  NE 

SN,  NSN ,  NSL ,  NSLMAX,  SNC,  NSNC,  NSCL,  NS 

1CLMX 

COMMON 

COMMON 

KUS,  NUS ,  NUS  MAX ,  KPS,  NPS,  NPSMAX 

NUS 1 ,  NUS2,  NUS3,  KCVi,  KCV2,  KCV3 

COMMON 

COMMON 

COMMON 

KEUS,  NEUS,  NENUM 

KECV1,  KECV2,  KECV3,  KECV4 

NECV1,  NECV2,  NECV3 »  NECV4 

COMMON 

COMMON 

COMMON 

KE1,  NE 1 ,  NE1MAX,  KE2 ,  NE2 ,  NE2MAX 

KE3,  NE3 ,  NE3MAX,  KE4,  NE4 ,  NE4MAX 

KES,  KES2 ,  KE  S3 

COMMON 

COMMON 

COMMON 

KRET,  KRET2,  KRET3 

STRM,  STRMC 

STRMI,  STRMC I ,  NIN,  STRMO,  STRMCO,  NOUT 

COMMON 

IK 

COMMON 

DELS,  DELSC ,  LIMIT,  LIMIT2,  LIMIT3,  LOOP,  KBAC 

KRUN,  KSETS,  KCLEAN,  LOOPS,  NOGO 

COMMON 
1  NSTRM 
CCMMCN 

TITLE,  NQKPM,  NOEN,  NOENC,  NCSN,  NOSNC,  NOKPS, 

NLX ,  NLY,  NLXS,  NLXSC 

COMMON 

COMMON 

COMMON 

I  CON V ,  NEX,  NECALL,  NEQUIP 

ND2 ,  ND  3 ,  ND4 ,  ND5 ,  ND6 ,  ND7 

EXX,  D 1 5 ,  D 16 

COMMON 

15 

COMMON 

12, I 3, 14, 15, 16, 17, 18, 19, 110, Ill, 112,  113, 114, 11 

J2,J3,J4,J5 

COMMON 
118, J19 
1 

J  6 ,  J7,J8,J9,J10,Jli,J12,J13,J14,J15,Jl6,Ji7,J 
♦  J20, 

J21»J22,J23,J24,J25,J26,J27,J28,J29,J30»J31»J3 

12, J33, 
2 

16 

J  34 , 

J35, J36, J37, J38, J39, J40, J41 , J42 , J43 , J44 , J45 , J4 

COMMON 
18, J59, 
COMMON 

J47, J48, J49, J50, J51, J52, J53, J54, J55, J56, J57, J5 

J60 

K2,K3,K4,K5,K6,K7,K8,K9,K10,KU,K12,K13,K14,K1 

1  5  ,  K 1  6 , 1 
1 

19 , K3C 

K  1  7  , 

K18,K19,K20,K21 ,K22,K23,K24,K25,K26,K27,K28,K2 

COMMON 

COMMON 

COMMON 

L2,L3*L4,L5,L6,L7,L8,L9,L10,L11,L12*L13 

NOELS , NDEL  SC 

NEXEQN,  NAME, KSEM 

COMMON  NI PT( 30), NO PT(  30), LIP, LOP , NOCOMP , NUN  I T { 30 ) , LUNI 

IT , NB , NONO AL , 

1 N  A  L  L  0  W ( 15) ,NLEGTH»NSTR(30)  ,COEFF( 16, 16) ,C( 16) ,NKSTR( 16 

l ) , NKCOL ( 16 ) , 

2NR0W,NXBl,CMPRCP( 15,10) *NEB,TREF 

DIMENSION  NEXEGN ( 30 ) ,  NAME ( 30 ) , KSEM { 60 , 3 ) 

DIMENSION  KPM(30,10),  KEFLAG(30),  KSFLAG(60)»  KPMRI30 


1,12) 

DIMENSION  SN(60,20)  ,SNC(60,10),  EN(30,10),  ENC(30,10 
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DIMENSION  KUSI60),  KPS(10),  KEUS(B) 

DIMENSION  KE1I30),  KE2I30),  KE3(30),  KE4I30) 
DIMENSION  STRM(60,20),  STRMC!60,10) 

DIMENSION  STRMI!8,20),  STRMC I ( 8, 10 ) *  STRMO(6,20), 

STR 

1MC0! 8, 10 ) 

DIMENSION  DEL  S ! 20 ) *  DELSC(IO) 

DIMENSION  TITLE!  12)»  IC0NV(15),  NECALL130) 

r 

DIMENSION  NUBAL ( 30 ) *NUBAL0 ( 30 ) 

C 

SUBROUTINE  BALNCE 

c 

c 

c 

THIS  SUBROUTINE  ATTEMPTS  TO  FIND  A  BALANCE  ENVELOPE 
WITH  WHICH  UNKNOWN  INPUT  STREAMS  CAN  BE  CALCULATED 

SO 

o  o  o 

AS  TC  AVOID  TRIAL  AND  ERROR  CALCULATIONS  VIA  PACER 
THIS  SUBROUTINE  IS  CALLED  BY  MAJOR 

NUMBERS  OF  STREAMS  ASSOCIATED  WITH  A  PARTICULAR 

C 

c 

c 

BALANCE  ENVELOPE  ARE  STORED  IN  THE  NIPT  AND  NOPT 
VECTORS 

NUMBERS  OF  UNITS  ARE  STORED  IN  THE  NUNIT  VECTOR 

c 

WR  ITE ( 6,  1000 ) 

1000  FORMAT! 1H1.39HAN  ATTEMPT  WILL  BE  MADE  TO  SOLVE  FOR 

AN 

115H  UNKNOWN  FEED 

1  /41H  STREAM  BY  MATERIAL  AND/OR  ENERGY  BALANCE//) 

NB  =  0 

C 

X  XU=  1  •  l 

XXL=C • 99 

c 

r 

SEARCH  FIRST  FOR  AN  UNKNOWN  FEED  STREAM 

L 

42  CONTINUE 

CO  72  1=1*30 

72  NUBALC! I ) =0 

CO  11  L B I  =  1  *  NSM A X 

C 

I F ( SN ( LB  I ♦  1) .LT.O. 000001 )G0T011 

NFLG=0 

C 

C 

C 

WHEN  NB  IS  GREATER  THAN  ZERO  CALCULATION  OF  AN  UNKNOWN 

INPUT  STREAM  WAS  SUCCESSFUL 

CONTROL  IS  TRANSFERRED  TO  MAJOR 

C 

IF (NB.GT.O  )GOT011 

I F ( SN ( L  B I ,2) .GT.XXUJGOTOl l 

I F ( SN ( LB  I  *  2 ) . L  T . XXL ) G0T01 1 

NS  IGL  =  0 

DC  12  J  =  3 » NSLMAX 

I F ( SN ( LB  I  *  J ) . L  T . 0. ) NS  I GL  =  NS  I GL+ 1 

12  CONTINUE 

IFtNSIGL.LT. 1 ) GO TOli  _ _ 

C 

C 

C 

NUFS  IS  THE  NUMBER  OF  THE  UNKNOWN  STREAM 

C 

C 

NUFS  =  L  B I 

NUWUFS  IS  THE  UNIT  INTO  WHICH  THIS  STREAM  FLOWS 
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NUWUFS=KSEM(NUFS,3) 

NFS  =  SM  LB  I  ,  1  ) 

WR  I TE ( 6  »  1 00  )  NF  S  ♦  NU  WUF  S 

r 

100 

FORMAT ( //  IX* ilHUNKOWN  FEED,I5,5X,7HT0 

UNIT,  15) 

C 

INITIALIZE  VECTOR  LENGTH  COUNTERS 

c 

NUM=  1 

L0=  1 

LUNI T=0 

NCHECK=0 

L  I  =  l 

r 

28 

LBUN= 1 

c 

THE  VECTOR  NUBAL  CONTAINS  NUMBERS  OF  EQUIPMENTS  WHICH 

c 

c 

c 

ARE  TO  BE  EXAMINED  AFTER  THE  EQUIPMENT 
EXAMINED  (NUWUFS) 

NU WUF S  IS  STORED  IN  NUBAL (1) 

CURRENTLY  BEING 

c 

NUBAL ( LBUN ) =NUWUFS 

LBUN=LBUN+ 1 

c 

c 

c 

THE  STREAMS  ASSOCIATED  WITH  NUWUFS  ARE 

EXAMINED 

DO  13  K3=2,N3MAX 

IF(KPM(NUWUFS,K3) .EQ.0)GOTO13 

IF  (KPN*  (NUWUFS»K3  )  .GT.0)G0T020 

C 

C 

C 

OUTPUT  STREAMS  ARE  EXAMINED  FOR  INTER¬ 
STREAMS  WITH  BITS  OF  INFORMATION  GIVEN 

EQUIPMENT 

ABOUT  THEM 

C 

C 

C 

AND  FOR  PRODUCT  STREAMS 

PRODUCT  STREAMS  ARE  ENTERED  DIRECTLY  INTO  THE  BALANCE 

OUTPUT  STREAM  VECTOR  (NOPT)  AS  ARE  TOTALLY  KNOWN 

c 

r 

INTER-EQUIPMENT  STREAMS 

v-» 

N=-KPM(NUWUFS,K3) 

IF (N.EQ.NUFS )GOTO( 11, 187) »  NUM 

IF(SN(N,2).GT. 1.5) GOTO 19 

IF (KSFLAG(N) .EQ. 1 )G0T019 

NUN=KSEM ( N  »  3 ) 

NUP=LBUN-1 

NC  T=C 

C 

C 

C 

CHECK  TO  SEE  IF  STREAM  N  FLOWS  BETWEEN 
WITHIN  THE  BALANCE  ENVELOPE 

TWO  UNITS 

c 

IFINUP.EQ.O ) GOTO 84 

CO  83  I  L  P=  1  »  NUP 

83 

IF (NUBAL!  ILP) . EQ .NUN ) NCT  =  NCT+ 10 
CONTINUE 

IF(NCT.GT.0)G0T013 

84 

CONTINUE 

IFUUNIT.LT,  1  )  GCT086 

DO  85  ILP  =  1  *  LUN I T 

I  <  *  cur  ;  n  o  -  c  i 
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I  F ( NUN  I  T (  ILP).EQ.NUN)NCT=NCT+10 

85  CONTINUE 

IF (NCr.GT.O  )GGT013 

86  CONTINUE 
N  K  P  S  =  C 

_ IF  STREAM  N  [S  A  TOTALLY  UNKNOWN  STREAM  OR  A  PREFERRED 

STREAM  THEN  NUN  IS  TO  BE  ENTERED  INTO  THE  NUbAL  VECTOR 

IF(N0KPS.EQ.0)GGT0186 
C 0  15  K  = 1 »  N C K PS 
IF (N.EQ.KPS1 K) )  NKPS=NKPS+ 10 
15  CONTINUE 

I F ( NKPS • GT . C ) GGT044 
186  NRS=0 

CO  45  NCLMN=3,NSLMAX 

IF ( SN { N , NCLMN ) • GT* (-.00000 1 )  )  NRS  =  NR$  +10 
45  CONTINUE 

IF(NRS.GT.0)GOT019 
44  NUBAL ( LBUN )=NUN 

LBUN=LBUN+ l 
GOTO  1  3 
19  LOP=LO- 1 
N  XP  =  C 

IF(LCP.EU.G)GCT091 
DO  78  I  MP  =  1  ♦ LOP 

IF(N0PT( IMP) .EQ. (-KPM(NUWUFS»K3) ) )NXP=NXP+1 

78  CONTINUE  ___  _ _ _ 

I F (NXP. GT.C ) GOTO  13 

NOPT  IS  A  VECTOR  OF  OUTPUT  STREAMS  FROM  THE  BALANCE  _ 

ENVELOPE 

91  NOPT (L0)=— KPM(NUWUFS»K3) 

LC  =  LC+  l 
GOTO  1  3 

INPUT  STREAMS  ARE  EXAMINED  FOR  INTER-EQUIPMENT  STREAMS 
HAVING  BITS  OF  INFORMATION  GIVEN  OR  FOR  FEED  STREAMS 


20  N=KPM ( NUWUFSt K3 ) 

TOTALLY  KNOWN  STREAMS  OR  FEED  STREAMS  ARE  ENTERED  INTO 
THE  NIPT  VECTOR 

IF(KSFLAG(N).EG.  DG0T022 
I  F  (  S N  (  N ,  2  )  .  L  T  70 . 9  9  )  GO  T0‘2 1 
22  LIP=LI-1 
NXP  =  C 

IF(LIP.EQ.C)GOTC90 
DO  79  IMP=1,LIP 

I F  <  N  I  P  T (  IMP) .EQ.N )NXP  =  NXP+l  _ 

79  CONTINUE 

IF(NXP.GT.0)GOTO13 
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C  NIPT  IS  A  VECTOR  OF  NUMBERS  OF  STREAMS  FLOWING  INTO 

C  THE  BALANCE  ENVELOPE 

C 

90  NIPT (LI )=N 


13 

L I =L I  +  l 

CCNT INUE 

G0T023 

21 

NUN  =  K  SEM (  N  ,  2  ) 

NUP  =  L  BUN-  l 

NC  T  =  G 

c 

C 

c 

CHECK  TO  SEE  IF  STREAM  N  FLOWS  BETWEEN  TWO 
WITHIN  THE  BALANCE  ENVELOPE 

UNITS 

c 

IF(NUP.EQ.0)G0T081 

CO  80  I L P  =  1 »  NUP 

80 

IF (NUBAL ( ILP ) .EQ.NUM) NCT=NCT+10 

CONTINUE 

IFINCT.GT ,0) GO  T  C  1  3 

81 

CONTINUE 

IF(LUNIT.LT.1)GGT060 

CO  82  I L P  =  1 , LUN I T 

82 

IF (NUN  IT (  ILP).EQ.NUN)NCT  =  NCT  +  10 

CONTINUE 

IF (NCT.GT.0)GOT013 

60 

CONTINUE 

IF (KEFLAG(NUN) .EO. 1 )G0T022 
IF(N.EQ.NUFS)G0T022 

c 

c 

c 

IF  STREAM  N  IS  A  TOTALLY  UNKNOWN  STREAM  OR 
STREAM  THEN  UNIT  NUN  IS  TO  BE  ENTEREC  INTO 

A  PREFERRED 

THE  NUBAL 

c 

c 

VECTOR 

IF (NCKPS.EQ.0IG0TO185 

NKPS=0 

CO  70  K  =  1  » NOKP S 
IFtN.EQ.KPS(K) } NKPS=NKPS+ 1 0 


70  CONTINUE 

IF (NKPS.GT.O )G0T044 
185  NRS=C 

NUPPER=NSLMAX 

IFINEB.EQ.l ) NUP  PER=NUPPER- 1 
CO  56  NCLMN=3, NUPPER 

IF(SN(N,NCLMN)*GT. (-0*000001  ) )NRS=NRS+10 
56  CONTINUE 

IFINRS.GT  .0) GOTO 2 2 
GO TO 4 4 
23  CONTINUE 

_ _  IF  (NCHECK.EC.  10  JG0T027 

NF  P=  1 

NPP=  LBUN-  1 

CO  26  1=1, NPP _ _ _ 

IF  (  LU  N  I  T  •  ECJ-  0  )  G0T036 
LS  =  0 

CO  37  J  =  1 ♦ LUN I T 
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I F ( NUBAL ( I J.EQ.NUNITl J) )LS=LS+10 
37  CONTINUE 

IF (LS.GT.0)GOTO26 
36  LUN I T  =  LUN  I  T  +  1 


NUNIT  IS  A  VECTOR  CONTAINING  A  LIST  OF  EQUIPMENT  IN 
THE  BALANCE  ENVELOPE 

NUNI T (LUNIT)=NUBAL( I ) 

26  NUBALOt  I  )=NUBAL(  I  ) 

IF (NPP.LE. 1 ) GO TO 2 5 

EXAMINE  THE  STREAMS  ASSOCIATED  WITH  EACH  UNIT  IN  THE 
NUBALQ  VECTOR 

27  NFP=NFP+  1 

I F ( N FP.GT.NP P ) G CTO  77 
NUWUFS=NUBALO(NFP ) 

NCHECK=  10 
G0T028 
77  CONTINUE 
NCHECK=0 
GO TO 2 3 
25  CONTINUE 

I F ( NFLG  • GT,0)G0T054 

IF  NFLG  IS  GREATER  THAN  ZERO  THEN  AN  ATTEMPT  IS  BEING 
MADE  TO  EXTENO  THE  BALANCE  ENVELOPE 


1 54  LO P  =  LQ- 1 

CHECK  TO  SEE  IF  RECYCLE  IS  PRESENT  WHICH  RESULTS  IN 
AN  INTER-EQUIPMENT  STREAM  TO/FROM  THE  BALANCE  ENVELOPE 
WHICH  SHOULD  NOW  BE  WITHIN  THE  ENVELOPE  SINCE  THE 
EQUIPMENT  FROM/TOWHICH  THIS  STREAM  FLOWS  IS  NOW  WITHIN 
THE  ENVELOPE 


L I P=L I- 1 
161  NELMT=0 
_ DO  158  NINP=1»LIP 

NSN  =  N  IPT  (NINP  )' 

CO  159  NU 1 3=  l »  LUN  I  T 

IF(NUNIT(NU13).EQ.KStM(NSN,2))NELMT=NINP 

159  CONTINUE 
158  CONTINUE 

IF(NELMT.EQ.0)G0T0164 
L I =L I -  1 
NL I P=L 1-1 

L  I  P  =  L I-  1  _ _ 

CO  160  NI PC=NELMT» L IP 

160  NIPT (NIPC)=NIPT(NIPC+1) 

GOTO  1 6 1  _  _ 

164  N  E  L  M  T  0  =  0 

CO  165  NOUTP= 1 ♦ LOP 
NSN=NOPT (NCUTP ) 
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CO  166  NU  13=1,  LUN  I  T 

I F ( NUN  I T  (NU13)  *EQ*KSEM(NSN,3)  )  NELM  rO  =  NQUT  P 

166  CONTINUE 
165  CONTINUE 

I  F  IN ELMTO.EQ.O ) GOT 61 6 8 

LO=LC-l 

NLOP=LO-i 

LOP=LO-l 

CO  167  NOPC=NELMTG,LOP 

167  NOPT ( NOPC  )  =NOPT ( NOPC+ l ) 

GOTO  164 

168  WR ITE ( 6, 1001  ) 

1001  FORMAT (  1 X »  3  7H A  BALANCE  ENVELOPE  HAS  BEEN  FOUND  AND 

1 30H  CALCULATION  WILL  BE  ATTEMPTED) 

WRITE (6, 30) ( NOP T (  I  )  ,1=1, LOP) 

30  FORMAT ( IX ,  14H0UTPUT  STREAMS,  101  5  ) 

W  R  I  T  E ( 6 , 33)  (N I P  T (I ) , I  =  1 ,  L I P ) 

33  FORMAT ( IX,  13HINPUT  ST RE AM S , 1 0  I  5 ) 

_  WRITE (6, 38) ( NUN  I T (  I ), 1=1, LUN IT) 

38  FORMAT  (IX,  29HUNITS  IN  BALANCE  ENVELOPE  ARE, 1015) 

NXB 1=0 


C  ATTEMPT  THE  CALCULATION  OF  THE  BALANCE  ENVELOPE 

C 

_ _ _  CALL  SEQCAL  __ 

C 

C  IF  NB  IS  GREATER  THAN  ZERO  CALCULATIONS  HAVE  BEEN 

C _  SUCCESSFUL 

C 

IF(NB.GT.0)GUT011 
1F(NFLG.GT.0)G0TQ50 
IF(NB.EQ.0)GOTQ50 
11  CONTINUE 

IF ( NB.GT.O ) GOT 040 
I F  <  X  XU . L  T . 0 • 5 ) GO T040 
C 

c  NO  FEED  STREAMS  HAVE  BEEN  SUCCESSFULLY  CALCULATED  SO 

C  SEARCH  FOR  AN  UNKNOWN  INTER-EQUIPMENT  STREAM 

C 

_ XXU  =  C«  1  _ 

XXL--0* 1 
C-0T042 

50  CONTINUE  _ 


C  EXAMINE  THE  OUTPUT  STREAMS  FOR  INTER-EQUIPMENT  STREAMS 

C  THEN  EXTEND  THE  ENVELOPE  USING  THESE  STREAMS  IN  SEARCH 

C  OF  A  NEW  ENV ELOPE 

C 

NUM=2 

NLOP=LOP 

NL0P1-NL0P 

_  NL  IP  =  L  I P  _  _____  _ 

NL0P2=NL0P 
NL  I  P2=NL  I  P 
NLUN I T=LUN I T 
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CQ  51  N2=lfNL0Pl 
NSN=NQPT ( N 2 ) 

IF ( SN ( NSN  *  2 ) . L  T . 0 . 5 )  G0T052 

51  CONTINUE 
GOTO  1  I 

AO  CONTINUE 
RETURN 

52  CONTINUE 

NSUM=0 

C _ _ 

C  DO  NOT  EXTEND  TOTALLY  KNOWN  I  NT ER-EUU l PMENT  STREAMS 

C 

_ Ij=(KSFLAG(NSN)  .GT.01G0T051 _ 

NCP3=N0C0MP+3 
NSCMX=0 
C _ 

C  NSUM  IS  THE  NUMBER  OF  UNKNOWNS  ASSOCIATED  WITH  THE 

C  ENVELOPE  TO  BE  EXTENDED 

C 

CO  66  I=l,NLOP 
NSN=NOPT { I ) 

NSC=SNC(NSN, 41+0.5 
I F ( N  SC . GT . NSCM  X ) NSCMX  =  NSC 
CO  53  K3=3,NCP3 

_ IF ( SN ( NSN tK3 ) .LT.O. )NSUM=NSUM+1 

53  CONTINUE 
KK3=2*N0C0MP+4 

IF(SN(NSN,KK3).LT.0. )NSUM=NSUM+1 

66  CONTINUE 

DO  67  I  =  l  »NLIP 
NSN  =  MPT(  I  ) 

NSC=SNC(NSN,4)*0.5 
IF (NSC. GT. NSCMX ) NSCMX =NSC 
DO  68  K3=3,NCP3 

IF ( SN ( NSN»K3 ) .  LT .0. ) NS  U  M  =  N  S  U  M  +  1 
68  CONTINUE 

IF (SN(NSNf KK3) .LT.O. )NSUM=NSUM+1 

67  CONTINUE 

N  SN=NOPT ( N2 ) 

NUWUFS=KSEM(NSN»3) 

~  N  C  H  E  C  K  =  0 
NFLG=NFLG+1 
G0T028 

54  LO P  =  L 0-  1 
NSUM 1 =0 

N  SCMN  =  0  _ 

CO  59  N 3=  1  *  LOP 

NSN=NGPT { N3 ) 

NCHT=0 

DO  71  J=ltLUNIT 

IF(KSEM(NSNf3) . EQ. NUN  I T ( J )  ) NCHT =NCH T  + 1 
71  CGNTINUE 

IF (NCHT.GT.O )G0T059 

NSC=SNC(NSN,4) +0.5 

IF  (NSC.GT.NSCMN  )NSCMN  =  NSC  _ _ _ 
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LIMIT  =N0CCMP+3 

N  SUM  1  IS  THE  NUMBER  OF  UNKNOWNS  ASSOCIATED  WITH  THE 
EXTENDED  ENVELOPE 


DO  55  K3=3, LIMIT 

_ IF { SN(NSN»K3).LT.O. )NSUM1 =NSUM1 +1 

55  CONTINUE 

IF(SN(NSN»KK3) • L  T • 0 • ) NSUM 1 =NSUM 1  + 1 
59  CONT  INUE 
L  I  P  =  L  I  - 1 

CO  65  N3=  1  f  L  I  P 

_ NSN=NIPT (N3) 

NCHT  =  0 

DO  69  J  =  1  »  LUN I T 

I F ( K S EM ( NSN»  2 ) . Eq.NUN I T ( J )  )NCHJ=NCHT  +  1 
69  CONTINUE 

IF (NCHT.GT.O IGCT065 

_  NSC=SNC(NSN,4)+C.5 

IF (NSC.GT.NSCMN )NSCMN=NSC 
DO  6  l  K3=3,  LIMIT 

IF(SNjNSN,K3).LT.O.  )  N  SUM  1  =NSUM  U  1 
61  CONTINUE 

IF ( SN ( NSN  » KK 3 ) .LT.O. ) NSUM 1 =N SUM  1  + 1 
65  CONTINUE 

IF (NSUM1  .LE.NSUM ) GO TO  57 
IF (NSCMN.GT.NSCMX ) GOT 057 

NLQW1=NLIP2+ 1  _ _ _ 

LBUN= 1 

IF(NLOWl.GT.LIP) GOT 06 4 


EXTEND  THIS  ENVELOPE  FURTHER  ALONG  INTER-EQUIPMENT 
STREAMS  IF  IT  IS  LESS  ATTRACTIVE  THAN  THE  INITIAL 
BALANCE  ENVELOPE  _ 


CO  62  N3=NL0W1»LIP 
IF (LBUN.GT. 1 IG0T062 
NSN=N I PT ( N3 ) 

IF(SN(NSN»2) •GT.0.5)GOT062 
NUWUFS=KSEM(NSN»2) 

N  L  N  N  3  =  0 

DO  725  NN3  =  3  *  NSLMAX 
IF ( SN ( NSN ,NN3 ) .LT.O, ) NLNN3=NLNN3+ l 
725  CONTINUE 

IF(NLNN3.EQ.0)G0T062 
L6UN=LBUN+ 1 
62'  CONTINUE 
NL  I P2  =  L I-  1 
NCHECK=0 

I F ( L  BUN. G  T • 1 ) G0T028 

64  NLOW  1  =NL0P2+  l 

IF (NL0W1.GT.L0P IGOTOL  8  7 _ 

CO  63  N3=NL0W I » LOP 
IF ( LBUN.GT. 1 ) G0T063 
NSN  =  N0PT ( N  3 ) 
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I  F ( SN ( N SN  »  2 ) .GT.0.5)G0T063 
NUWUFS=KSEM(NSN, 3) 

NLNN3=0 

_ CQ  726  NN 3  =  3 1 NSLMAX 

I  F ( SN ( NSN  t NN 3 ) .LT.O. ) NLNN 3=NLNN 3+1 
726  CONTINUE 

IF (NLNN3. EQ.O)G0TO63 
L  B  UN  s  L  BUN  + 1 
63  CONTINUE 
NLOP2=LO-l 
NCHECK=Q 

I F ( LBUN.GT • 1 ) GO  T02  8 

RETURN  ENVELOPE  TO  INCLUDE  THE  ORIGINAL  UNITS  AND 
SEARCH  FOR  ANOTHER  INTER-EQUIPMENT  OUTPUT  STREAM  ALONG 
WHICH  TO  EXTEND  THE  ENVELOPE 


187  LO=NLOP+l 
LI-NUPfl 

LUN I T  =  NLUN I T 
N  L  I  P  2  =NL I P 
NLOP2=NLOP 
GO  TO 51 

REMOVE  THE  INTER-EQUIPMENT  OUTPUT  STREAM  ALONG  WHICH 
THE  INITIAL  BALANCE  ENVELOPE  WAS  EXTENDED  FROM  THE 
NOPT  VECTOR  IF  A  MORE  ATTRACTIVE  ENVELOPE  WAS  LOCATED 


57  NOPT (N2)=NOPT(NLOP+I) 
NLOW=NLOP+2 

N  LG  P  =  LQ- 1 

DO  58  I  =  NLOW  *  NLOP 

58  NOPT ( 1-1 ) =NOPT (  I  ) 

NL I P=L 1-1 

NLUN I T  =  LUN  I  T 
LO  =  L  0- 1 
NLOP  =  LO-  1 
GO  TO  154 
END 
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SUBROUTINE  SEQCAL 

COMMON  KPM,  N2»  N  3  *  N2MA  X ,  N3MAX,  KPMR 

COMMON  KEFLAG,  NE,  NEMAX 

COMMON  KSFLAG*  NS,  NSMAX 

COMMON  EN,  NEN  »  NEL,  NELMAX,  ENC,  NENC,  NECL »  NE 

1CLMX 

COFMGN  SN,  NSN  f  NSL,  NSCmaXT  SNC»  N$NC» NSCL#  NS 

1CLMX 

COMMON  KUS,  NUS  ,  NUSMAX, _ KPS,  NPS,  NPSMAX 

COMMON  NUS1,  NUS2,  NUS3,  KCV1,  KCV2 ,  KCV3 

COMMON  KEUS,  NEUS,  NENUM 
COMMON  KECVlt  KECV2,  KEC  V  3 »  KECV4 
COMMON NECVlf  NECV2,  NEC  V  3 »  NECV4  " 


COMMON  KE1,  NE1,  N  E 1  M  A  X ,  KE2  »  NE2,  NE2MAX 

COMMON  KE3,  NE  3 ,  NE3MAX ,  KE4,  NE4 ,  NE4MAX 


COMMON 

COMMON 

COMMON 

KES,  KES2 ,  KE  S3 
KRET,  KRET2,  KRET3 
STRM,  STRMC 

COMMON 

COMMON 

IK 

STRM I ,  STRMCI ,  NIN, 
DELS,  CELSC,  LIMIT, 

STRMO,  STRMCO 
LIMIT2,  LIMIT3,  LOOP 

,  NOUT 
,  KBAC 

COMMON 

COMMON 

1  NSTRMI 

KRGN,  KSETS,  KCLEAN 
TITLE,  NGKPM,  NOEN, 

♦  LOOPS,  NOGG 

NOENC,  NCSN ,  NOSNC, 

NGKPS , 

COMMON 

COMMON 

COMMON 

NLX ,  NLY ,  NLXS,  NLXSC 

ICONV,  NEX,  NECALL,  NEQUIP 

NC2 ,  ND  3 ,  ND4 ,  ND5 ,  ND6 ,  ND7 

COMMON  EXX,  D15,  D16 

COMMON  12, 13, 14, 15, 16, 17, 18, 19, 1 10, Ill, I  12, 113, 1 14, II 

15 

COWMCN  J2,J3,J4,J5 

COMMON  J  6  ,  J7»J8»J9,J10,J11,J12,J13*J14»J15,J16,J17,J 
118, J 19, J20, 

1  J21,J22,J23,J24,J25 , J26 , J  2  7 , J28 , J  29 , J  30 , J  3 1 ,  J 3 
12, J33, J34, 

2  J35 , J36, J37, J38, J39, J40, J41, J42 , J4 3 , J44 , J4 5 , J4 

16 

COMMON  J47,J48,J49,J50,J51,J52,J53,J54,J55,J56,J57,J5 
18 , J5S, J60 

COMMON  K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14, K 1 

15,K16,K 1 7, 

1  K18,K19,K20,K21,K22tK23,K24,K25,K26,K27,K28,K2 

1  9  ,  K  3  C 

COMMON  L2,L3,L4,L5,L6,L7,L8,L9,L10,L11,L12,L13 
COMMON  NOELS, NCELSC 
COMMON  NEXEGN,  N  AME ♦ K S EM 

COMMON  NIPT( 30  )  ,NOPT( 30 ) , L I P , LOP , NOCCMP , NUN  I T ( 30 ) ,LUNI 
1 T , NB , NCNO AL , 

1 N A L L C W (  15)  , NLEGTd , NSTR ( 30 ) , COEFF ( 16, 16 ) , C ( 1 6 ) , N K S TR ( 16 
1 )  ,  NKCCL ( 16 ) , 

2NR0W  *NXB1 » CMPRGP ( 15, 10 ) ,NEB, TREF 

GIVENS  ION  NEXEGN ( 30 ) ,  NAME ( 30  j , KSEMI60, 3 ) 

DIMENSION  K  PM ( 30 , 1 0 )  ,  KbFLAG(30),  KSFLAGI60),  KPMR ( 30 

1,12) 

DIMENSION  S  N  ( 6  0,20  )  ,$NC(6G,10)»  EN(30,10),  ENC(30,10 

1  ) 
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DIMENSION  KUS ( 60 ) *  KPS(IO),  KEUS(B) 

CIMENSION  KE1(30),  KE2(30),  KE313Q),  KE4(30) 

C  IMENSICN  STRM ( 6U  »  20  )  ,  STRMC(60,1G) 

C  I  MENS  I  CM  S  T  R  M  K  8 , 2  0  ),  STRMC  IT  87  TO)  ,  STRMO(8,20),  STR 
1MC0( 8, 10) 

C  IRENS  ION  DEL S ( 20 ) ,  DELSC( 10)  _ 

CIMENSION  TITLE  <1'2),  I  CUN V ( 1 5 ) »  NEC  ALL  (  30) 


C 

C  SUBROUTINE  SEQCAL 

C 

C  THIS  SUBROUTINE  ATTEMPTS  SEQUENTIAL  CALCULATIONS 

C  THAT  IS  THE  SOLUTION  OF  ONE  EQUATION  IN  ONE  UNKNOWN 

C 

C  EQUATIONS  USED  ARE 

C 

C  I  SUMMATION  OVER  NSN  OF  S ( NSN ) *$N (NSN, 3) =0. 

C  II  SUMMATION  OVER  NSN  OF  S ( NSN ) * SN ( NSN , J + 3 ) =0 . 

C  FOR  J=l, 2, ...»  NOCOMP 

C  III  SUMMATION  OVER  J  OF  SN ( NSN , J+3 ) =  SN { NSN , 3 ) 

C  IV  SN(NSN,J+3)=SN(NSN»J+N0C0MP+3)/SN(NSN»3) 

C 


NL  EG  Th  =  L I P  +  LCP 
CO  1C  1  =  1, LIP 

10  NSTRt  I  )  =N  I  PT (  I  ) 

CC  11  1  =  1,  LCP 
NSUB=L IP+ I 

11  NSTR (NSUB )=NCPT ( I ) 

4  0  NB  IG  =  3 

N  ENC  =  3 
NFLAG=0 
20  CONTINUE 
C 

C  USING  EQUATIONS  I  AND  II  ATTEMPT  TO  SOLVE  FOR  AN 

Z  OVERALL  MASS  FLOW  RATE  OR  A  COMPONENT  FLOW  RATE 

C 

CC  12  K3=NBIG,NEND 
N  FG=C 

I F { N  C  NO AL • EG . 0 ) GO  T020 1 

NCT=C _ 

CO  200  NP  =  1 , NONC AL 

I  F { N ALLOW ( NP ) . EG . K3-6 ) NOT =NC T- 1 
2C0  CONTINUE 

IFINCT.LT.  OGCTG12 
201  CONTINUE 

CO  13  1  =  l  , N L E G T h  _  _ 

N SN  =  N STR (  I  ) 

IF(NEND.GT.3)G0T01114 
NSCRPT=2*N0C0MP+4 _ _ 

IF (AeS(SN(NSN,NSCRPT) -10000.  ).LT.O.OCl)GOTOl3 
1114  IF(SN(NSN,K3).LT .0. )G0T014 

GO  TO  13  _ _ _ 

14  NFG=NFG+ 1 
NSNS  TR=NSN 

13  CONTINUE  _ 

IFtNFG.EQ.l ) GOTO  1 5 
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15 

GO  TO  1  2 

S  IN=C. 

CO  16  1  =  1, LIP 

I  F  (  N  I  P  T  (  I  ).EQ.NSNSTR)G0T016 

NSN=N IPT ( I ) 

S  IN  =  S  IN+SN(N$N,K3 ) 

16 

CONTINUE 

SCUT  =  0 . 

CO  17  1=1, LOP 

IF (NCPT (  I  )  .EO.NSNSTR)GOTOl7 

NSN=NOPT ( I ) 

SGUT=S0UT+SN(NSN,K3 ) 

17 

CONT  INUE 

NFLAG=NFL AG+ 1 

IF  (SMNSNSTR,2  )  .GT.  1.  1 )  GO  TO  18 

120 

IF  (SMNSNSTR,2)  . L T . 0. 9 9 ) GO  TO  1 1 8 
SN(NSNSTR,K3 )=SOUT-SIN 

IF(SN(NSNSTR,K3) .LT.O. )SN(NSNSTR,K3)=0. 

118 

GOTO  12 

CONTINUE 

NX  3  =  C 

119 

CO  119  N 5=  1 , L l P 

IF (NSNSTR.EQ.N IPT(N5) )NX3=NX3+2 

CONTINUE 

18 

I  F ( NX  3 • G  T .0) GO TO  120 

SN (NSNSTR,K3)=S IN-SOU T 

IF ( SN (NSNSTR,K3 ) .LT.O. ) SN { NSNSTR , K3 ) =0. 

12 

CONTINUE 

IF (NB  IG.GT  .3)G0T019 

NB  IG=NCCQMP+4 

19 

NENO=2*NOCOMP+3 

GCT020 

CONTINUE 

C 

C 

C 

USING  EQUATION  III  SCAN  THE  SN  MATRIX  IN 
TO  CALCULATE  AN  UNKNOWN  ELEMENT 

AN  ATTEMPT 

C 

CO  21  I  =  l » NLEGTH 

NSN=NSTR( I ) 

NB  IG  =  3 

N  END  =  3 

NFG  =  C 

25 

IF(KSFLAGtNSN) .EQ.l )G0T021 

I  F  (  KSFLAG ( NSN ) .EQ.7)G0T021 

CONTINUE 

CO  1122  K 3=NB I G  » NEND 

IF ( SN  (NSN,K3 ) .LT.O. )GCT023 

GCTG1  122 

23 

1  122 

NFG=NFG+1 

K3STR=K3 

CONTINUE 

I  F ( NB  IG.GT. 3 )GGT02A 

NB  IG=NCC0MP+4 

NEND=2*NOCCHP+3 

G0T025 
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24 

CONTINUE 

IF (NFC.EQ. 1 )G0TC26 

GCT02 l 

26 

SCCMP  =0 . 

CO  27  K3=NBIG,NEND 

IF (K3.EQ.K3STR )G0T027 

27 

SCCMP=SC0MP+SN(NSN,K3  ) 

CONTINUE 

NF  LAG=NFL AG+  1 

IF<K3STR.EQ.3)G0T028 

SN(NSN,K3STR  )=SN(NSN,  3)-SCGMP 

IF(SN(NSN,K3STR) .LT.O. )SN(NSN,K3STR) =0. 

28 

GO  1021 

SN (NSN, 3 ) =SCOMP 

IF(SN(NSN,3).LT.0.)SN(NSN,3)=0. 

r 

21 

CONTINUE 

L 

c 

USING  EQUATION  IV  ATTEMPT  TO  SOLVE  FOR  AN  UNKNOWN 

c 

r 

ELEMENT  OF  THE  SN  MATRIX 

L 

DO  2S  1=1 , NLEGTH 

N SN  =  N S TR (  I  ) 

NUL=N0CCMP+3 

CO  32  K3=4,NUL 

N  FG  =  C 

IF(SN(NSN,3) •LT.O. ) GO TO 30 

GCTG31 

30 

31 

N  FG  =  N  FG+  1 

K  3  STR  =3 

CONTINUE 

34 

IF(SN(NSN,K3).LT.O. )G0T034 

GO TO 3 3 

NFG  =  NFG+  1 

33 

K3STR=K3 

CONTINUE 

NN=K  3+NOCGMP 

36 

IF(SN(NSN,NN) .LT.O. )GCT036 

GOTO  3  5 

NFG=NFG+  1 

35 

K3STR=K3+NCCOMP 

CONTINUE 

IF (NFG.EQ. 1 ) GO  TO  3 7 

37 

G0TG32 

NFLAG=NFL AG+ 1 

IF(K3STR.EQ.3)GCT038 

IF(K3STR.LE. NOCOMP +3 ) GOTO 39 

N U-K 3  STR- NOCOMP 

SN(NSN,K3STR )=SN (NSN, 3  )  *SN ( NSN, NU ) 

38 

GO  TO  3  2 

NU=K3+N0C0MP 

I F ( SN ( NSN ♦ K3 ) • L  T • 0. 0 1 ) GOT  0  2  2 

22 

SN(NSN,3)=SN(NSN,NU)/SN(NSN,K3) 

GO  TO  32 

NFLAG=NFLAG-i 

GCTG32 
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39  NU=K3STR+N0C0MP 

SN(NSN,K3STR ) =SN ( NSN, NU ) / SN ( NSN  ,  3 ) 

32  CONTINUE _ 

29  CONTINUE 
C 

C  IF  ANY  CALCULATIONS  WERE  MADE  THEN  REPEAT  THE  CYCLE 

C  THAT  IS  IF  NFL  AG  IS  GREATER  THAN  ZERO 

C 

IF (NFLAG.GT.0)GCT040 
C 

C  CHECK  TO  SEE  IF  A  SIMULTANEOUS  SOLUTION  IS  REQUIRED 

C 

N  C  l  =  C 

CO  41  I  =  l  *  NL  EGTH 

_ NC  =  0 _ 

N  SN=NSTR (  I  ) 

NLT=NOCUMP+3 
CO  441  K  3  =  4  »  NL  T 
I F ( S N  C  N  SN  t  K  3 ) .LT • 0 • )NONC+l 
441  CONTINUE 

I  F  (  N  C  •  G  T •0)NC1=NC1+1 
I  F  (  N  C  .  G  T  .  C  )  G  0  T  C  4  1 
C 

C  CHECK  TO  SEE  IF  IT  IS  POSSIBLE  TO  CALCULATE  ANY 

C  CUALITITIES,  DEW  POINTS «  OR  BUBBLE POINTS 

C 

_ _ IF  (NEB.EQ.  1  )G0TC419  _ _  _ 

K3=2*NGC0MP+4 
N  =  NSN 

NSCRPT=2*NCCOMP+4 

I F  (  A  e  S  (  SN (N/NSCRPT )-l  CO 00.  ) .LT.G.C01 JGCT0419 

IF(SNC(N, 3I.LT.C. JG0T0419 

IF ( SNC(N, 6 ) .LT.O. ) CAL  LBU6P  T ( N ) 

I F ( S NC ( N  »  7  )  . LT . 0 .  )  CAL  L  DE WP T ( N ) 

IF(SN(N,K3).LT.G.)G0T0419 
IF(SNC(N, 5)  .LT.O.  )CALL  QUAL(N) 

419  CONTINUE 

IF(SN(NSN,3) .LT.O. )NC1=NC1+1 

41  CONTINUE 

IF (N  Cl .0  T . 0 ) GCTC42 
GCTC43 

42  WR I T  E { 6  »  4 4  ) 

C 

C  SIMULTANEOUS  SOLUTION  REQUIRED 

C  _ _ _ _ 

44  FORMAT! IX, 30HS I MULTANEOUS  SOLUTION  REQUIRED) 

CALL  SETEQ 
C 

C  IF  NXB1  IS  -1  THEN  A SIMULTANEOUS  SOLUTION  IS  NOT 

C  POSSIBLE  AND  CONTROL  IS  RETURNED  TO  BALNCE 

C  _ 

IF(NXBl.LT.0)GCTO300 

C 

C  IF  NXBl  IS  16  THEN  THE  EQUIPMENT  BEING  CALCULATED 

He - C  A  NNC  T  B  E  SO  LVEL  BY  "MAT  ERI  A  L  AND/OR  1  N'ER  G  Y  BALA  NC  E 
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c 

r 

AN C  CONTROL  IS  RETURNED  TO  SETUP  OR 

EQUIP 

v*. 

IF (NXB1  .EG. 1 6 ) R  E  TURN 

c 

43 

GCTC40 

NCEB  =  0 

c 

c 

c 

IF  ONLY  MATERIAL  BALANCE  IS  REQUIRED 
NEXT  SECTION 

THEN  GOTO  THE 

r 

IFINEB.EQ.  1  )GOTC300 

c 

ENERGY  BALANCE  CALCULATION 

c 

CG  45  1= l » NLEGTH 

NSN  =  NSTR(  I  ) 

IF(SNC(NSN,3) • L  T • 0 • )NCEB=10 
NSBCRT=2*N0C0MP+4 

N  Z  ER  =  0 

NUPPER=N0C0MP+3 

CO  1145  I H  T  =  4 »  NUPPER 

IF(AGS(SN(NSN»  IHT)  )  .L T . 0. 0001 ) NZER  =  N 

ZER+ 1 

1  145 

CONTINUE 

IF (NZER .EC.NOCCMP ) GOTO  1146 

IF ( SN (NSN,NS8CRT  )  .LT.O. )G0T046 

1  146 

C-CT045 

I F ( ABS(SN(NSN,NSBCRT) +1. ) . LT.O. 0001 ) 
GGT045 

GO  T  046 

46 

45 

NCEB=NCEB+ 1 

NSNSTR=NSN 

CONTINUE 

c 

c 

c 

IF  ONLY  ONE  TEMPERATURE  OR  HEAT  FLOW 
ATTEMPT  A  SEQUENTIAL  ENERGY  BALANCE 

IS  UNKNOWN  THEN 
SOLUTION  SINCE 

c 

c 

ALL  MASS  FLOW  CATA  IS  KNOWN 

IFtNCEB.EC.  1  )G0T047 

54 

IF(NCEB.EC.0)G0TO3OO 

WRITE(6,54) 

FORMAT (  IX, 30HUNABLE  TO  SOLVE  ENERGY 

BALANCE ) 

47 

NB  =  NB  + 1 

GCT03C0 

HEAT  =  0. 

CC  48  I=1,NLEGTH 

NSN=NSTR (  I  ) 

IF (NSN.EQ.NSNSTR )G0T048 

N  X  3  =  C 

CO  122  N5=1*LIP 

IFtNSN.EQ.NIPT (N5) )NX3=NX3+2 

122 

CONTINUE 

SUM2  =  0 . 

IF(ABS( SN (N$N,NSBCRT)-1 0000. ).LT. 0.0 

01 )G0T048 

NUPE=NCCOMP+  3 

N  Z  ER  =  0 

CO  124  NP  =  4  »  NUPE 

K  3=N  S8CRT 

m  i  >  m  i  i  c  j  i  cjri/v  tr  o-  ■ !  ij  i  j 
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IF(A8S(SN(NSN,NP) ) .LT. 0.0001 )GGTU418 
CALL  ENTHPYI ANS,NP-3) 
SUM2=SUM2+SN(NSN»NP)*ANS 


418 

124 

GO  TO  1 24 

NZER=NZER+  1 

CCNT INUE 

IF  INZER. EQ.N0C0MP)G0T0416 

IFINX3.GT.G) GOTO  123 

HEAT=HEAT+S0M2*SN(NSN ♦ 3 ) 

416 

GCT048 

NHE=2*NCCGMP+4 

IF(NX3.GT.O)GOT01416 

1416 

HEAT=FEAT+SN(NSN,NHE) 

G0T048 

HEAT=HEAT-SN(NSN,NHE) 

123 

48 

GGT048 

HEAT=HEAT-SUM2*SN(NSN  ,  3  ) 

CONTINUE 

N  X  3  =  C 

CG  430  1=1, LIP 

IFINSNSTR.EQ.NIPT  (  I  )  )NX3=NX3+1 

C 

430 

CONTINUE 

IFINX3.EQ.0) HE AT =— HE A T 

C 

c 

c 

SOLVE  FOR  UNKNOWN  HEAT  FLOW  OR  TEMPERATURE 

AN  ITERATIVE  SCHEME  IS  REQUIRED  TO  SOLVE  FOR  AN 

UNKNOWN  TEMPERATURE 

c 

NQL  =  0 

I F ( SNCINSNSTR, 5 )  . G T . ( -0 .00 1 ) )NQL=NUL+1 

N  Z  E  R  =  0 

CO  1123  N  P  =  4 ,NUPE 

IF(SN(NSNSTR,NP) .LT. 0.0001  )NZER=NZ£R+1 

1125 

CONT  INUE 

IF  INZER. EQ.NOCOMP IGOTOl 424 

GCT0424 

1424 

NHE=2*N0C0MP+4 

SN(NSNSTR,NHE)=HEAT 

GCT03C0 

424 

427 

SN (NSNSTR  ,NSBCRT )  =  SNC (NSNSTR,6) 

KT  IME S  =  0 

HUN=C . 

IF (NQL.EQ.C )CALL  QUAL(NSNSTR) 

CO  125  NP=4 , NUPE 

IFIABSI SN (NSNSTR,NP) ) . L T . 0 . 000 1 ) GO TO  12 5 

CALL  ENTHPYI ANS,NP-3) 

NSCRPT=NP+NUCOMP 

HUN=FUN+ANS*SN(NSNSTR,NSCRPT ) 

125 

CONTINUE 

IF I ABS(  ( HUN-HEAT ) /HEA T ) . LT . 0 . 0 1  )  GOTO  300 

IFIKTIMES  )425, 426,426 

426 

KT  IMES  =  KT  IMES-1 

HUNO  =  HUN 

TEMP=SN(NSNSTK,NS6CRT ) 

SN  CNSNSt'R ,NSBCR  f  )  =SNC  (NSNS  TR  ,  7) 
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IF  (  ABSI SNC (NSNSTR ,7)-TEMP).LT.iO.) SN ( NSNS TR , NS BCR T ) = TE 
1MP+2C  . 

G0T0A27 

A 2 5  SLGPE=(HUN-HUNC)/(SN(NS NS  TR  »  N SBCR  T ) -  T EM"?!- 
TEMP=SN(NSNSTR,NSBCRT  ) 

SN(NSNSTR,NSBCRT )  =  ( ( HE AT-HUN ) /SLOPE ) +TEMP 
HUNO=HUN 
GGTOA27 
3GO  CONTINUE 
C 

C  IF  PERFORMING  A  UNIT  CALCULATION  THEN  RETURN  TO  SETUP 

C  OR  EQUIP 

C 

IFINXB1.EQ. I7)G0T01155 
CO  55  I = 1 » NLEGTF 
NSN  =  NSTR (  I  ) 

I F ( KSFL AG  I NSN ) .GT.0JG0T055 
NX7  =  C 

NUP=2*NCC0MP+3 
CO  59  J  =  3  ,  N  U  P 

IFISNINSN,  JULT.O.  )NX7=NX7+1 

59  CONTINUE 
IFINEB.GT.l )G0T057 

58  CONTINUE 

IF(NX7.GT.C)G0T055 

C 

C  FLAG  STREAMS  TFAT  HAVE  BEEN  TOTALLY  CALCULATED  TO  A 

C  POSIT IV E  NUMBER 

C 

IF (SN(NSN» 1 ) .  L  T .0.5  )G0T055 
IF(SN(NSN,2)  .GT.  1.  I  )G0T05  5 
IF ( SN (NSNf 2 ) .LT.0.99) GOTO 56 
KSFLAGINSN )=7 
GO  TO 5 5 

56  KSFLAGINSN  )  =  l 
GO  TO  5  5 

57  CONTINUE 

IF(SN(NSN,NUP+1) •  LT • 0 . ) NX 7 -NX 7+1 
IF(SNC(NSN,3) .  L  T  •  0  • )  N  X  7=N  X  7  +  1 
GOTO  5  8 
55  CONTINUE 

IFINXBl.LT. OJRETURN 
1155  CONTINUE 

hR I T E I  6  *  60  ) 

60  FORMAT! IX, 39HSTREAM  VARIABLES  OF  STREAMS  INVOLVED  IN 

—  1 17H  MATER  I A  L  BALA N  C  E ) 

CO  53  1=1, NLEGTF 

N SN  =  N ST R  (  I  )  __  _ _ 

5  3  WRITE(6,52)( SH ( N  SN , J )  ,  J  =  i ,NSLMAX ) 

52  FORMAT (  1X,5F14.4 ) 

NB=NB+ 1 0 


RETURN 

END 
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$  UBRCU  T INC  SCTEG 

CCMMCN  KPM,  N2,  N3,  N2MAX,  N3MAX  »  KPMR 
CCMMCN  KEFLAG,  ME,  NEMAX 

_ CCMMCN  KSELAG,  NS,  NSMAX _ 

COMM CM  EN,  MEN,  NEL,  NELMAX,  ENC,  MENC,  NECL ,  NE 

1CLMX 

_ _ _____  COMJMGN  SN,  MSN,  NSL,  NSLMAX,  SNC,  NSNC,  NSCL,  NS 

1CLMX 

CCMMCM  KUS,  NUS ,  NUSMAX,  KPS,  NPS,  NPSMAX 

_ _ _ CCMMCM  MUSI,  NUS2,  NUS 3,  KCVl,  KC V2 ,  KCV3 

CCMMCN  K  EUS ,  NEUS,  NENUM 
CCMMCM  KECVl,  KECV2 ,  KECV3,  KECV4 

COMMON  NEC  V  P,  NECV2,  NECV3,  NECV4  _____ 

COMMON  KEl,  NE1,  NE1MAX*  KE2,  NE2*  NE2MAX 

COMMON  KE  3 ,  ME  3 ,  ME3MAX,  KE4,  NE4,  NE4MAX 

_ CCMMiCN  KES,  KES2,  KE  S3 _ 

COMMON  KRET,  KRET2,  KRET3 
COMMON  STRM,  STRMC 

_ _ _  COMMON  STRMI,  STRMC It  N 1 N ,  STRMO,  STRMCO,  NOUT 

COMMON  DELS,  DELSC,  L  I  M I T ,  L I M I T2 ,  LIMIT3,  LOOP,  KBAC 
IK 

_ _ COMMON  KRUN,  KSETS,  KCLEAN,  LOOPS,  NOGO _ 

CCMMCN  TITLE,  NOKPM,  NOEN,  NOENC,  NCSN,  NOSNC,  NOKPS, 
1  NSTRM 

CCMMCN  NLX ,  NLY ,  MLXS,  NLXSC 
COMMON  I  CON V,  NEX,  NECALLt  NEQUIP 
COMMON  ND2 ,  ND 3 ,  ND4 ,  ND5 ,  ND6,  ND7 
_ COMMCN  EXX,  D 1  5  ,  Pit. _ 

COMMCN  12, 13, 14, 15, 16, 17, 18, 19,110,  III, I  12, 113, I  14, 11 

15 

COMMCN  J2,J3,J4,J5 

COMMCN  J  6  *  J7  ,  J8  , J9, J 10, J 1 1 »  J 1 2 , J 13 , J 14*  J1 5 , J 16 » J 1 7 , J 

1  18, J19, J20, 

_ _ 1  _ J  2  1 , J22, J23, J24 , J25, J2 6, J 2  7 , J23, J29, J30, J3 1 , J3 

12, J 33, J 34 , 

2  J35, J36, J37, J38, J39, J40, J41, J42 , J43 , J44 , J45 , J4 

16  _ _ _ _ _ 

COMMCN  J47,J48,J49,j50,J5i,J52,J53,J54fj55,J56,J57,J5 

18, J59, J60 

_ CCMMCN  K2,K  3,K4,K5,K6,K7  ,  K8,K9,K  10,  K1  1  ,  K  1 2  ,_K1  3,  K_14  ,_K  1 

1 5  ,  K 1 6  ,  K  1  7  , 

l  K18,K19,K20,K2i ,K22, K23,K24, K2 5 , K26 , K27 , K28 , K2 

1 9  ,  K  3  C _ 

COMMCN  L2»L3»L4»L5*L6*L7 ,L6,L9,LlU,Lll ,L12,L13 
CCMMCM  NOELS, NDELSC 

COMMCN  NEXEQN,  NAME,  K_S  EM _ 

COMMCN  N  I  P  f ( 30  )  ,  MGP  T(  30) , L I P , LOP , NOCGMP , NUN  I T ( 30 ) ,LUNI 
1 T , NB , NONO AL  , 

IN ALLOW ( 15) , NLEGTH,NSTR ( 30 ) ,CQEFF( 16, 16) ,C ( 16 ) , NKSTR ( 16 
1 ) , NK  C  C  L ( 16) , 

2NR0W  ,NXB1 ,CMPROP ( 15, 1 0 ) ,NEB, TREF 
DIMENSION  N  E  XE  ON ( 30 ) ,  NAME ( 30 ) , KSEM ( 60 , 3 ) 

DIMENSION  KPM ( 30 ,10),  KE  FLAG ( 30 )  ,  KSF  LAG (60) ,  KPMR ( 30 

1,12) 

DIMENSION  S  N (60,20)  ,  SNC (60, 10),  EN(30,10),  ENC(30,10 
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DIMENSION  KlJS  (  60  )  *  KPS(IO),  KEUS(d) 

DIMENSION  K£l(30),  KE2<30),  KE3I30),  KE4I3G) 

DIMENSION  S  TRM ( 60 »  20 ) ,  STRMC(60,10) 

_ D  I  MENS  ION  STRM.  I  (  8,  20  )  ,  STRMC  I  (8,  100  ,  STRM0(8,20),  STR 

1 MCO ( 8 ,  10 ) 

DIMENSION  DELS ( 20 )  *  OELSC(LO) 

. . . .  DIMENSION  TITLE ( 12 ) ,  IC0NV(15),  NEC  ALL ( 30 ) 

C 

C  SUBROUTINE  StTEU 

_ _ C _ _ _ 

C  This  SUBROUTINE  ATTEMPTS  TO  SETUP  A  SET  OF  EQUATIONS 

C  TO  EFFECT  THE  MATERIAL  AND  OR  ENERGY  BALANCES  AROUND 

C  ___  THE  BALANCE  ENVELOPE 
C 

C  COEFF  IS  THE  MATRIX  OF  COEFFICIENTS  AND  NKS TR  AND 

_ _ C _ NKCOL  ARE  VECTORS  CON  TA  I N  I  NG  THE  ROW  AND  COLUMN _ 

C  SUBSCRIPTS  RESPECTIVELY  OF  THE  UNKNOWN  ELEMENTS  IN  THE 

C  SN  MATRIX 

t’  c _ _C  IS  THE  VECIOR  OF  CONSTANTS  ASSOCIATED  WITH  THE  SET 

C  OF  EQUATIONS 

C 

_ _ C__  INITIALIZE  COUNTERS ,  INDICATORS  ANu  COEFFICIENT  MA  T  R  I_X 

C 

D0  ICO  1=1,16 
DO  100  J  =  1  , 16 
100  COEFF (  I  , J ) =0. 

L  S=  I 

NG AU  S  S  =  0 


NKOW  =  0 
NCCM  P0  =  0 
SUM=C. 

CO  1 C  02  I  =  I,NLEGTH 
NSN  =  NSTR(  I  ) 

_  NCGMP=SNC(NSN,4) _  _ 

IF (NCOMPO.LT. NCOMP )NCOMPO=NCOMP 
1002  CONTINUE 
K  S  T  R  =  0 


C  ATTEMPT  AN  OVERALL  MASS  BALANCE 


CO  10  1=1* NLEGTH 
N SN  =  N S  TR (  I  ) 

NSCRPT=2»NCCUMP+4 

I F ( ABS ( SN ( NSM, NSCRPT) - 1 0000. ) .LT. 0.001 ) GO  TO  10 
NX3  =  C 

DO  22  N 3=  1 ,  L  IP _ _ _  _ 

IF (NSN.EU.NIPT (N3) )NX3=NX3+2 
22  CONTINUE 

IF ( SN (NSN  *  3 1 «LT .0. )G0T011 
IF (NX3.EQ.0) G0TQ24 
SUM=SUM-SN(NSN, 3) 

GO  TO  10 _ 

24  SUM=SUM+SN(NSN, 3 ) 

GO  TO  1 0 

11  KS  TR  =  KSTR+  1 
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NKSTR(KSTR)=NSN 
NKCCL ( KSTR )=3 
IF(NX3.EG,0) GO  TO 2  l 
COE F F ( 1, KSTR  )  =  1  ,Q 
GO  TO  10 

21  COEFF (  1  , KSTR  )=-1.0 

10  CONTINUE 

I F { KSTR • EQ  «0 ) GQT018 
C( 1 ) =  SUM 
NROW=NROW+ 1 


C  ATTEMPT  COMPONENT  BALANCES 

C 

18  NBIG=4 

NEND=N0C0MP+3 

_ NX99  =  0 _ 

DO  12  K3  =  NB I G*  NEND 
IF (NGAUSS.GT.O ) GOTO  1 2 
KPRIM  =  KS  TR 

I F( NQNOAL . EQ • 0 ) GOTO 1 003 
N  F  =0 

_ _ CO  1  3  J=  It  NQNOAL  _ 

IF (K3.EQ.NALL0W ( J ) +3 ) NF=NF+ 1 
13  CONTINUE 

IFINF.GT .0)GGTC12 
1C03  NQ=0 
NF  =  0 

_ NX9  =  G _  _ 

SUM-0. 

N  X  =  0 

NRCW=NROW+ 1 

CO  16  I=1,NLEGTm 

IF(NX9.GT.O)GOTC16 

_  NSN-NSTRI  I  )  _  _  _ 

NX3  =  C 

DO  28  N3=l ,L IP 

IF  (NSN.EO.NIPT  (N3)  )NX3=NX3+2 
28  CONTINUE 

IF(SN(NSN,K3).LT.O. ) GOTO 17 
_ G0T026 _ _ _ _ 

17  CONTINUE 

I F ( SNINSN, 3) .LT.O. )G0T0216 

KS  TR  =  KSTR+ 1 

N'KSTR  { KSTR  )=NSN 

NKCOL ( KSTR ) =K3 

IF(NX3.EQ.0)G0T029 

-  -  -  - - — - - - 

COEFF ( NRG W, KSTR )=SN(NSN,3 ) 

GO  TO  1 6 

216  NST 1=K3+ NOCOMP 

IF ( SN l NSN * NST1) . G T . 0 .  )  GO T 0  1 2 1 6 
G0T01217 

_ 1216  IF (NX  3. GT.O) GOTO  1218 _ 

S i (J  I M  =  SUM  +  SN ( NSN  »NS  T  1 ) 

GOTO  16 

1218  SUM=  SUM- SN  (NSN*NST1) 
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1217 

NX9  =  N  X9  + l 

c 

TRY  NEXT  COMPONENT  BALANCE  BUT  IF  HAVE  TO 

DO  ENERGY 

c 

c 

c 

BALANCE  MAY  HAVE  TO  DISCARD  OVERALL  MASS  BALANCE 

EQUATION  AND  PERFORM  ONLY  COMPONENT  BALANCES 

29 

NX99=NX99-l 

GO  TO  1 6 

COEFFI NRGW,KSTR ) =-SN( NSN, 3 ) 

26 

GOTO  16 

CONT INUE 

I F ( SN ( NSN , 3 ) . L  T • 0 • ) GO  TO 30 

IF(NX3.EQ.C)G0T03i 

SUM=SUM-SN(NSN,3)*SN( NSN,K3) 

GO  TO  1  6 

31 

30 

SUM=SUM+SN(NSN, 3 )*SN{ NSN,K3) 

GOTO  1  6 

CONT  INUE 

KNO  T  £  =  0 

DO  33  K=1,KSTR 

IFINSN.EQ.NKSTR(K) ) GO  TO 34 

34 

GO  TO  3 3 

CONTINUE 

IF ( 3.EQ.NKC0LI K )  ) KNOT  E  =  K 

33 

133 

CONTINUE 

IF(KNOTE.EQ.0)GOTO132 

IF(NX3*EQ.0)GOTO32 

32 

COEFF ( NROW  »  KNOTE ) =SN( NSN,K3) 

GOTO  1  6 

CGEF F( NROW, KNOTE )=-SN( NSN, K3 ) 

132 

GOTO  16 

KSTR=KSTR+i 

NKSTR (KSTR  )  =NSN 

NKCOL (  K S  TR )  =  3 

KNOTE=KSTR 

GOTO  133 

16 

CONI  INUE 

IF (NX9.GT.0)G0T0217 

C ( NROW ) =SUM 

NX  1 1  =  0 

K  EHC  =  0 

N  X  =  0 

c 

NUP  =  N  ROW- l 

IF (NUP.EQ.O IG0TG219 

c 

CHECK  FOR  LINEAR  DEPENDENCE  OF  OF  ANY  TWO 

tUUAT IONS 

c 

DO  711  I  CFECK= 1 t NUP 

I F ( NX • GT • 0 ) GOTO  7 1 1 

NX  l  =  C 

IF ( A  B  S ( C ( NRG  W )  )  .  L  T .0.0000001 ) GO  T  0  7 1 3 

7  1  3 

ACHEK  =C ( I  CHECK )/C(NROW) 

GO  TO  7  1 4 

I  F ( A B S ( C (  ICHECK)  ). L T . 0. 000000 1 ) Kb HC= 1 

I  fV'X  =.  .<  V  I  s  I 
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F  32 


ACHEK= 10000000 . 


714 

DO  712  JCHECK- 1 , KSTR 

I F ( ABS(COEFF (NROW, JCHECK)  ) . L T  . 0 • OOOOCO l ) GOT 0  7 30 

ACHEK  1  =  C0EFF (  I  CHECK, JCHECK ) /COE FF ( NROW , JCHECK ) 

. . . 

732 

IF (KEHC.GT.O ) ACHEK= ACHEK l 

KEHC=0 

I F ( ABS ( ACHEK ) . L T -  0 . 00  0  000 1 )G0T0715 

715 

l  F ( ABS(  ( ACHEK- ACHEK 1 ) /ACHEK) .  LT . 0. OOGO 1 ) NX l =NX l  +  1 

G0T07  16 

I F ( ABS( ACHEK-ACHEK1  ). LT . 0 . 000000 l ) NX 1  =  NX 1  +  1 

™_  „  . 

716 

I F (  ICHECK.GT  *  1 JG0T0712 

CFF=CCEFF ( NROW , JChECK ) 

IF(ABS(CFF  )  .LT.G.OOOOOi ) GO TO  7 12 

712 

N  X  1 1  =  N  X  1 1  +  1 

CONT INUE 

IF(NX1.EQ.KSTR)NX=NX+1 

711 

I F ( NX  1 1 .EQ.O )NX=NX+l 

CGNT INUE 

I  F ( NX .GT • 0 ) G0T02 1 7 

730 

GGT0219 

I F  (  ABS  (  COEFF  (  l  CHECK  ,  J  CHEC  K  )  )  .  LT  .  0. 00  0001  )  G0TCJ7  3  l 

ACHEK 1=1CCC0CCC. 

731 

GOTO  7 32 

IF (KEHC.EQ. 1 )GCT0733 

ACHEK 1=ACHEK 

733 

GCT0732 

AC  HEK  =  1 . 

ACHEK  1  =  1 . 

c 

217 

GOTG732 

NROW  =NROW- 1 

c 

r 

ELIMINATE  LAST  COMPONENT  BALANCE  EQUATION 

C 

KSTR=KPR I M 

1010 

219 

DO  1010  1=1,16 

COEFF ( NROW+ l , I ) =0. 

CONT  INUE 

c 

c 

c 

CHECK  TO  SEE  IF  ENOUGH  EQUATIONS  OBTAINED 

IF(KSTR.GT.NCOMPO+l ) GOT  061 

IF(NROW.EQ.NCOMPQ)NGAUSS=NGAUSS+i 

I F ( NROW . EQ . K  S  TR ) NGAUS S  =  NG AUS S  + 1 

12 

CONTINUE 

I F ( NROW *  EQ • KSTR ) G01 03 5 

IF (NEB.EQ. 1 ) GO  TC6 l 

- - - 

61 

I  F { NX99 • L  T . 0 )G0T080 

IF (KSTR-NROW.EQ. 1 ) GOT  036 

WR  ITE ( 6t  37 ) 

C 

c 

c 

UNABLE  TO  FIND  SUITABLE  SET  OF  EQUATIONS  RETURN 

CONTROL  TO  SEQCAL 

c 

37 

FORMAT (  IX  ,  L5HUNA0LE  TO  SOLVE) 
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RETURN 

80  NX9  =  Q 
C 

C _ Aj  T  ER  PT  COMPONENT  BALANCES  ONLY  AS  A  PRELUDE  TO _ 

c  material  and  energy  balances  in  conjunction 
c 

_  K 3=2*N0C0MP+4_ 

00  8  1  I  =  l , NLEGT H 
NSN=NSTR{  I  ) 

I  F  (  A  B  S  (  SN  (NSN,  K3  )  +  1  .  )  .LT. 0.0001  )NX9=NX9+1 

81  CONTINUE 
C 

C  IF  ALL  TEMPERATURES  AND  HEAT  FLOWS  INVOLVED  IN  THE 

C  BALANCE  CALCULATION  ARE  NOT  GIVEN  THEN  RETURN  CONTROL 

C  TO  SEQCAL 

C _ 

IF(NX9.EQ.C)GOTQ83 
G0T06  l 

_ 83  K S TR  =  0  _ 

CO  iOLL  1=1,16 
DO  1 0  I  l  J  =  1 , 16 

1011  COEFF (  I  , J  )  =0. _ 

NROW=0 

NG AU  S  S  =  0 

NUL  =  N0C.0MP  +  3 

DO  84  K3  =  4,N'JL 

IF(NGAUSS.GT.0)G0T084 

KPRIM=KSTR _ 

SUM=0 . 

I F ( NQNOAL . EQ . 0 ) GOTO  1004 
NF  =  C 

CO  8  5  J  =  1  ,  NUN HAL 

IF (K3.EQ.N ALLOW! J ) +3 ) NF=NF  + 1 

_ 85  CONT I NUE _ 

IF (NF.GT.O  )G0TG84 
1004  NROW  =  NROW+  1 

CO  86  1=1 tNLEGTH 
NSN  =  NSTR (  I  ) 


NX  3  =  0 

CO  8  7  N  5  = 1  , L I P 


IF ( NSN. EQ. NIPT ( N  5 ) )NX3  =  NX3  +  2 
87  CONTINUE 

IF ( SN ( NSN , 3 ) . L  T . 0 • )G0  T088 


IF(SN(NSN»K3).LT.0. ) GOT 090 
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N  X  1  1  =  0 
K  EHC  =  0 


NX  =  0 

_ CO  717  I  CHECK= 1 t  NUP 

IF(NX.GT.0)GOTO717 
NX  1  =0 

IF( ABS(C(NROW)  ).LI . 0. 0000001 ) GUT071 8  ___ _ 

ACHEK  =  C(  ICHECK )/C(NROW) 

GOTO 7  i 9 

_ 71 _8  If  {  A-B  S  (  C  (  ICHECK)  )  .  LT.O.  OQQOOO 1  )  KEHC=1 _ 

ACHEK=1GCOOCOO. 

719  CO  720  JCHECK= 1 ♦ KSTR 

IF (AB5 ( COEFF { NROW, JCHtCK) ) . L T . 0 . OQQOOO 1 ) GOTO/ 34 
ACHEK 1 =CGEFF ( ICHECK f JCHECK ) /COEFF ( NROW * JCHECK) 

IF (KEHC.GT.O ) ACHEK=ACHEK1 

_ _ KEHC=0 _ 

7  36  I  F ( A B S ( ACHEK ) . L T .0*000000 1 )GCT0721 

IF ( ABS( ( ACHE K- ACHEK 1 ) /ACHEK) . LT . 0 . 0000 1 ) NX 1 =NX 1 + 1 
G0T0722  _ _ _ 

721  IF( ABS( ACHEK- ACHEK 1 ). LT.O . 0000001 ) NX l*NXl+l 

722  I F (  ICHECK. GT. 1 )G0T0720 

_ CFF=CGEFF (NROW, JCHECK  ) _ 

IF ( A6SICFF ) .LT .O.OCOOUOi)GOT0720 
NX1 1-NX1 l+l 

720  CONTINUE 
IFINX1.EQ.KSTR )NXSNX+ 1 
IF (NX1 1  .EQ.O )NX  =  NX  +  1 

_  _ 717  CONTINUE _ _ _  _ 

IF (NX.EQ.0)GOTO784 
NROW  =  NROW- 1 


KSTR=KPRIN 
CO  1012  1=1,16 
1012  COEFF ( NROW+ l , I ) =0. 

GOTO  7  64  _ 

734  IF ( ABS( COEFF ( ICHECK , JCHECK ) ) . LT.O. 00 00001)00 T07 35 
ACHEK1= 10CC000C. 

GOTO  7  36  ___ _ _ __ _ _ _ 

735  IFIKEHC.EU.i )GCT0737 
ACHEK 1=ACFEK 

GO  TO  7  36  _ 

737ACHEK=i. 


ACHEK  1  =  1  . 

_  GOTO 7  36 

784  IF  CNRGW. EQ.NCOMPO )NGAUSS=NGAUSS+1 
IF ( KSTR. EG. NROW ) NG AUS $=NG AU$ S+ l 
I  F ( K S  TR. GT.NCORPO+ 1 )GQTC6 1 
84  CONTINUE 
G0T094 

88  CONTINUE  _ _ _ 

IFCSN (NSNUK3 ) .LT.O. )G0T091 
KN0TE=0 

IFCKSTR.EQ.O )G0T01C07 
DO  1005  K  I  5=1, KSTR 
IFINSN.EQ.NKSTRt  KI5) ) GOTO  1006 
GCT01C05  _ _ _ _ 
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F  35 


1C06  IF (3.EQ. NKCOL! KI5)  ) KNOTE  =  K  I  5 
IC05  CONTINUE 

IF (KNGTE. E  Q  •  0 ) GOTQIOQ7 


1 C08 

COEFF ( NROW » KNOTE )  =- SN  (  N SN  ,  K3  ) 
C-GT086 

COEFF ( NROW, KNOTE )=SN( NSN, K3) 

I C07 

GCT086 

KSTR=KSTR+1 

NKSTR ( KSTR )=NSN 

NKCOL { KSTR ) =3 

IF(NX3*GT .0) GO TO 92 

COEFF ( NROW t KSTR ) =-SN< NSN,K3) 

92 

GCT086 

COEFF ( NROW, KSTR ) =SN(NSN,K3 ) 

GCTU86 

91 

CONTINUE 

NCOLM=K3+NOCOMP 

IF(SN(NSN, NCOL  M ) . LT .0 . ) GOTOl 91 

IF(NX3.GT.O) GOTO  1 93 

SUM= SUM + SN( NSN, NCOL M) 

G0T086 

193 

191 

SUM=SUM-SN( NSN, NCOL M) 

GCT086 

K  STR  =  KSTR  +  1 

NKSTR ( KSTR )=NSN 

NKCOL (KSTR) =K3+N0C0MP 

IF (NX3.GT .0)G0T093 

93 

COEFF (NROW, KSTR ) =- 1.0 

G0T086 

COEFF (NROW, KSTR )=+1.0 

90 

GCT086 

KSTR=KSTR+l 

NKSTR(KSTR)=NSN 

NKCOL ( KSTR ) =k3 

IF(NX3.GT.O)GOT095 

COEFF ( NROW, KSTR ) =- SN ( NSN, 3 ) 

95 

G  0  T  0  8  6 

COEFF ( NROW, KSTR ) =SN(NSN,3 ) 

G0T086 

94 

CONT INUE 

IF ( ( KSTR- NROW) .EQ.C )G0T035 

IF ( ( KSTR-NROW ) . Eg . 1 ) G0T03 6 

G0TU6  1 

o  r 

AN  ENERGY  BALANCE  IS  ATTEMPTED  IF 

AND  ONLY  IF  ONE  MORE 

C 

C 

36 

EQUATION  IS  REQUIRED  TO  SOLVE  THE 

L  S  =  L  S-  1 

BALANCE 

I  F ( NEB . EQ •  DGOT061 

K3=2*N0C0MP+4 

DO  38  1=1  tNLEGTH 

N SN  =  NSTR (  I  ) 

NZER=0 

NUPPER=N0C0MP+3 
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C 

C  NG  TEMPERATURES,  PRESSURES,  QUALITIES  GR  HEAT  F LOWS 

C  CAN  BE  UNKNOWN  OR  CONTROL  IS  RETURNED  TO  SEQCAL 

C 

00  1 138  I H  T  = A , NUPPER 

IF(A6S(SN (NSN, IHT)). LT.O. 000  l  ) NZER=NZER+ 1 
1138  CONTINUE 

IF  INZER. EQ-NOCOMP) GOTO  1136 
IF(SN(NSN, K3) .LT.O. )G0T061 

_  IF(SNC(NSN,3).LT.O.  )G0 T06 1 

IF ( SNC ( NSN  ,  5 )  . LT.O. )G0T061 
G0T038 

1136  IFt ABS<SN( NSN, K3 )+!.). LT.O. 0001) G0T061  ______ 

38  CONTINUE 

NROW=NRUW+  l 

_ __sumh  =  o. 

N  U  P  E  =  NOCO  M  P  +  3 
DO  42  J= 1 tNLEGTH 

NSN=NSTR(  J  ) _ _ _ 

N  X  3  =  0 

00  124  N 3=1, LIP 

_ IFJ  NSN. EQ. NIPT ( N  3 )  )NX3^NX3+2  _  _ _ _ 

124  CONTINUE 
SUM2  =0 . 

NX4=0 

NZ  ER  =  0 

IF( ABS(SN( NSN, K3) -10000. ) .LT.O. 001 )GCT042 

_ DO  109  NP=4 , NUPE  _ 

IF(SN(NSN,NP) .LT.O. 001 ) GO TO  1109 
CALL  ENTHP Y ( SUM3 » NP-3 ) 

GOTOi  1 1 

1109  NZER=NZER+1 
111  CONTINUE 

_ IF  INZER. EQ.NOCGMP ) GOT 0  5 18  _  _  _ 

IF (SN(NSN, 3) .LT.O . ) GO  TO  1 1 0 
IF (SN (NSN,NP ) .LT.O. ) GOTOI 12 
IF ( NX 3. EQ.O ) GOTOI 13 

SUMH^SUMH— SN (NSNtNP )*SN (NSN *  3 ) *  SUM3 
GOTO  109 

518  NHE=2*N0C0MP+4  _ _ _ 

I F ( NX  3 . G  T . 0 ) GO  TO  1 5  l  8 
SUMH = SUMH +SN ( NSN ,NHE ) 

GOTO l 09 

1518  SUMH  =  SUMH- SN( NSN , NHE ) 

GCT0109 

113  SUMH=SUMH+SN ( NSN ,NP  )*SN(NSN,  3  K-SUM3 
GO  TO  109 

110  CONTINUE 

1F(SN(NSN»NP ) .LT.O. ) GOTOI 02 
CO  114  NI=1,KSTR 
IF(NSN.EQ.NKSTR(NI) )G0T01 15 

GOTO  114  _ 

115  CONTINUE 

I F ( 3. EQ.NKCOL ( N  I  )  )  KNOT  E  =  N  I 

114  CONTINUE  ______  .  _ _ 
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IF(NX3.EQ.G) GO  T  Q  1 1 6 
SUM2  =  StJM2  +  SN(NSN,NP  )*SUM3 
COtFF ( NRO W, KNOT E )  =SUM2 
GCTC109 


116 

SUM2=SUM2-SM( NSN,NP)*SUM3 

COEFF (NROW, KNOTE )=SUM2 

GO  TO  109 

102 

CON FINUE 

NCOLM=NP+NOCOMP 

I  F ( SN ( NSN ,  NCOLM  )  .  L  T  . 0  .  )  GO  TO  1 1 02 

IF  (NX3.EQ.O)GOTOU19 

SUMH=SUMH-SN(NSN,NCCLM)*SUM3 

GCT0109 

1 119 

1102 

SUMH  =  SUMH  +  SN (NSN, NCCL  M ) *SUM3 

GOTO  109 

DO  117  K  =  1  , K  S  TR 

118 

IF (NSN.EQ.NKSTR ( K )  ) GOTO  LI  8 

GO  TO  1 1  7 

CONTINUE 

117 

I F ( NP+NOCOMP .EQ.NKSTR(K) ) KNOTE=K 
CONTINUE 

IF(NX3.EQ.O)GOTOU9 

119 

COEFF ( NRO W , KNO  TE )  =SUM3 

GOTO  109 

COEFF (NROW, KNO TE )=-SUM3 

112 

GOTO  109 

CONTINUE 

DO  120  K=  1 , KSTR 

121 

IF (NSN.EQ.NKSTR( K) ) GOTO  121 

GO  TO  120 

CONTINUE 

120 

IF (NP.EQ.NKCOL (K)  ) KNO  TE  =K 

CONTINUE 

IF(NX3.EQ«0)G0T0122 

122 

COEFF ( NRO W , KNO  TE ) =SN( NSN, 3 ) *SUM3 

GO  TO  1 09 

COEFF  (  NRO W , KNO T E ) =-SN ( NSN , 3 ) *SUM3 

109 

42 

CONTINUE 

CONTINUE 

C ( NRO W ) =SUMH 

35 

CONTINUE 

C 

c 

4  SUITABLE  ScT  OF  EQUATIONS  HAS  BEEN 

SETUP  AND 

c 

SOLUTION  WILL  BE  ATTEMPTED  BY  SUBROUTINE 

SIMCAL 

c 

WRITE(6,245) 

245 

FORMAT (// IX, 18HC0EFF ICIENT  MATRIX/ ) 

N  SC  =  C 

DO  2  A  3  1  =  1, NRO W 

243 
24  4 

I F ( ABS ( C ( NROW ) ) .LT. 0,00001 )NSC=NSC+1 
WRITE (6, 244) ( COEFF ( I , J ) , J = 1 , NRO W ) 
FORMAT (8(2X»F10.4)  ) 

248 

IF ( NSC. EQ. NROW  JG0T061 

WRITE(6,248) 

FORMAT ( //8X,8HUNKN0WNS, 10X, 19HVECT0R 
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CO  246  I  =  l,NRf)U 

246  klRITE(6»247)NKSTR(  I  ) » NKCOL ( I  )  «C  (  I  ) 

24  7  FORMAT (6Xf3HSN{ , I  3 , IN , , 1 3 ♦ IH ) , 1 2X , F2  0.4 ) 
CALL  SIMCAL 


RETURN 

END 
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SUBROUTINE  SIMCAL 

COMMON  KPN  ,  N2,  N3,  N2MA X  ♦  N3MAX ,  KPMR 
COMMON  KEFLAG,  NE,  NEMAX 

COMMON  KSFLAG,  NS,  NSMAX 

COMMON  EN,  NEN,  NEL,  NELMAX,  ENC ,  NENC,  N EC L  ,  NE 

ICLNX 

COMMON  SN,  NSHt  NSL,  NSLM AX ,  SNC,  NSNC,  NSCL,  NS 

ICLNX 

COMMON  KUS,  NUS ,  NUSMAX,  KPS,  NPS,  NPSMAX 

COMMON  NUS1,  NUS2,  NUS3 ,  KCV1,  KCV2,  KCV3 

COMMON  KELS ,  NOUS,  NENUM 

COMMON  KECV1,  KECV2,  KECV3,  KECV4 

COMMON  NECV1,  NECV2,  NEC  V  3 ,  NEC V4 

COMMON  KE1,  NE 1 ,  NE1MAX*  KE2 ,  NE2 ,  NE2MAX 

COMMON  KE  3 ,  NEB,  NE3MAX,  KE4,  NE4 ,  NE4M1AX 

COMMON  KES,  KES2 ,  KE  S3 
COMMON  KRET,  KRET2,  KRET  3 
COMMON  STRM,  STRMC 

CGMMCN  STRM I ,  STRMCI,  NIN,  STRMO,  STKMCG,  NOUT 

COMMON  DELS,  CELSC,  LIMIT,  LIMIT2,  LI M  j  T  3  f  LOOP,  KBAC 
IK 

COMMON  KRUN,  KSETS,  KCLEAN,  LOOPS,  NOGO 
COMMON  TITLE,  NOKPM ,  NOEN,  NOENC,  NCSN,  NOSNC,  NOKPS, 
I  NSTRM 

COMMON  NLX ,  NLY,  NLXS,  NLXSC 
COMMON  I  CON V ,  NEX,  NECALL,  NEwUIP' 

COMMON  NC2 ,  ND3 ,  NC4  ,  ND5 ,  ND6  ,  ND7 
COMMON  EXX,  D15,  D16 

COMMON  12,13,14,15,16, I  7 ,18,19 ,1 1 0 ,  I II ,112,11 3, I  14 ,1 1 
15 

COMMON  J2,J3,J4,J5 

COMMON  J6  »  J7,J8,J9,  JIO,  JH  ,  J  1  2  ,  J  1  3  ,  J  1 4  ,  J  1  5  ,  J  1  6  ,  J  1  7  ,  J 

1 18, J 19, J2C, 

1  J21, J22, J23, J24, J25, J26, J27, J28, J29, J30, J31 , J3 

1  2  ,  J  3  3  ,  J  ‘34  , 

2  J35, J36, J37,J38,J39, J40, J41, J42, J43, J44, J45, J4 

lc  _ _ 

COMMON  J47 • J48 , J49»  J  50  »  J  5 1 , J  52 , J  5  3 , J  54 , J  55 , J56* J57* J5 
Id  ,  J59, J60 

COMMON  K2»K3»K4 ,K5,K6,K7 ,K8,K9,K10,Kll , K 1 2 , K 1 5,K14,K1 
15,Klfc,K17, 

1  K18,K19,K20,K21 , K2 2 , K2 3 , N24 , K2 5 , K26 , K2 7 , K28 , K2 

19  ,K3C 

COMMON  L2,L3,L4»L5»L6,L7 ,L8»L9,L10»L11 ,L12,L13 
COMMON  NOELS, NCELSC 
COMMON  NEXEQN,  NAME,KSEM 

COMMON  NIPT ( 30 ) , NOPT ( 30 ) , L I P ,  LOP ,NCCCMP , NUN  I T ( 30 ) , LUN I 
1  T , NB , NONO  A  L , 

INAL LOW (15) ,NLEGTH,\STp(30) ,CQEFF{ 16,16),C(16),NKSTR(16 
1 ) » NKCOL ( 16 ) , 

2NR0W , NXB 1 , CM PROP (  15, 10), NEB, TREE 
DIMENSION  NEXEGM30),  NAME ( 30 ) , K SEM { 60 , 3 ) 

“cTMENSION  K  PM ( 3  0 , 1 0 ) ,  K E  FLAG (30),  K  SF  L AG ( 60 ) ",  K  P  MR ( 30 

1,12) 

DIMENSION  S N ( fc C , 2 C )  ,SNC(60,i0),  £N(30, 10) ,  ENC(3Q, 10 
1  ) 
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C  IMENS  ION 
DIMENSION 
DIMENSION 


KUS ( 60 ) ,  KPS ( 1 0  J ,  KEUS(b) 

KE 1 ( 30 ) ,  K E2 ( 30 ) ,  KE3(30),  KE4(30) 
STRM(60,20),  S  TRMC ( 60  » 10 ) 


W*.  U'W  J  •  1  ^  Uf  M  O  IIM'UM  Of  IU/  t  J  1  IN  HU  \  O  f  £  U  J  f  J  I  rv 

IF CO (8,10) 

CIMENSIGN  C  FL  S ( 20 ) ,  DELSC(IO) 

CIMENSIGN  T  ITLE  (  12  )  ,  ICGNVU5),  NEC  ALL  (  30 )  ,  NRO  (  16  ) 

C 

C 

C 

SUbRCUT  INE  SIMCAL 

C 

r 

NROW  EQUATIONS  ARE  SOLVED  BY  GAUSSIAN  ELIMINATION 

114 

NT IME=0 

115 

14 

CC  115  1=1  , NROW 

NRO (  I  )  =  I 

NR  INT=0 

CO  1C  1=1, NROW 

BA  =  CCEFF (  1,1) 

IF(ABS(BA).LT.C.C05)NRINT=I 

10  CONTINUE 

IF(NRINT«EQ.0)GGT011 
NT  IME  =  NT  IME  + 1 


IF  (NT  IME.EG.NROW  )G0T030 
NR  =  0 


CO  12  IslrNRQW 
CA-CCEFF (  I  y N R I N T ) 

IF( ABS(CA) .LT.C.C05)GUT012 
I F ( N R0(  I  )  .EQ.NR I  NT )G0T011 7 

GOTO  116 

117  IF (NRC(NR  INT) .EG. I )G0T012 
116  N  R  =  I 

12  CONTINUE 

IF (NR.EG.O )G0TC30 
CO  13  1  =  1,  NROW 
S  T  R  =  C  0  E  F  F  (  NR  IN  ft  I  ) 

COEFF (NRINT,  I  )=COEFF(NR,I ) 

COEFF (NR,  I  )  =  STR 

13  CONTINUE 

C  =  C ( N  R  I N  T  ) 

C ( NR  I  NT ) =C ( NR ) 

C ( NR ) =D 
NTEM=NRC ( NR ) 

NRG ( NR ) =NRG ( NR INT) 

NRO (NRINT  )  =  N  T  E  M 
G0T014 
11  CONTINUE 

NUPPER=NR0W-1 

NZERCC=0 

CO  15  NR= 1 ,N UPPER 
IF (NZEROC.GT .0) GOTO  15 
NJ=NR+1 

CO  16  I  =N  J  ,  NROW  _  _ 

IF ( N  Z  EROD.GT . 0 ) GO  TO  1 6 

C (  I  )  =0 (  I ) -COEFF (  I  ,  NR) *C (NR ) /COEFF ( NR , NR ) 
CO  17  J  =  N J  »  NRO W _ _ 
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A  J  01 33 
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•=  rtMJ/ 

0  =  3383 

s. .  jMM.  A  f  I  =  ■*«  2  I  33 
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31  )T  •  {  .  TO .  33'-  UVIHI 
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17  COEFF (  I  , J)=COEFF(  l  »  J  ) -COE F F (  I  , NR ) *COEFF ( NR , J ) /COtFF (NR 
1 » NR  ) 

IF(AES(COEFF(  I  ,  l  )  )  .  LT  .  0.00  5 ) NZEROD= I 
16  CONTINUE 

"  CO  18  JG=N J ,  NROW 

18  COEF  F ( NR , JG ) =COEFF ( NR , JG ) /COE F F ( NR , N R ) 

_  C(NR  )=C (NR) /COEFF (NR, NR) 

CGEFF ( NR ,NR)=1. 

NUPPER=NROW 

_ IF ( NZEROD.GT.O ) N UPP ER =NZE ROD 

CO  37  I=NJ,N UPPER 
CO  37  J= 1 , NR 
37  COEFF (  I  ,  J  )  =  0  . 

15  CENT  INUE 

IF(NZEROD.GT .OJGOTOl 1 4 
CO  15  1=1, NROW 
SUM  =  C  . 

NK=NROW* 1- I 
N=NKSTR(NK  ) 

M=NKCOL  (  NK  ) 

N  J  =  NK  +  1 

JF  (  N  J  ._GT  . NROW  )  GG  TQ2  2 _ _  _ _ 

CO  2  C  J  =N  J  ,  NROW 
N1=NKSTR ( J  ) 

M1=NKCGL ( J  )  _ 

20  SUM=SUM+C0EFF(NK,J)*SN(N1,M1) 

SN(N,M)  =C  (NK  )-S(JM 

G0TQ21 

22  SN(N,M)=C(NK ) /COEFF ( NK , NK ) 

21  CONTINUE 

WRITE(6,23)N,M,SN(N,M) 

2  3  FORMAT ( IX,3HSN( , 15, 1H, , 15, 1H) ,5X,  1H  =  ,5X,F  10.2) 
IF(SN(N,M).LT.C.)SN(N,M)=0. 

19  CONTINUE  _ 

RETURN 

30  NC ALC  =0 

_ _ CO  3  2  1=1,  NROW _  _ _ 

N  ELM T  =0 
NZ  S  =  C 

CO  31  J  =  1 , NROW 

I F ( A  B S ( C  0 E  F  F (  I , J )  ) . L  T .0.000000 1  )  N Z  S  =  NZS  +  1 

I F ( ABS( COEFF ( I , J ) ) .GT .0.0099 )NELMT=J 

31  CONTINUE _  _  _ _ 

IF (NZ S • E  Q • C  NROW— 1 ) )G0T033 

GO  TO  3  2 

33  NN=NKSTR(NELMT  ) 

MM=NKCOL (NELMT ) 

SN(NN,MM)=C(  I ) /COEFF (  I, NELMT) 

IF (SN(NN,MM)  .LT.O. )SN(NN,MM)=G. 

NC  AL  C  =-100 

32  CONTINUE 
IF(NCALC.LT.O) RETURN 
WRITE (6, 34) 

34  FORMAT  (  44F1  UNABLE  TO  SOLVE  THESE  EQUATIONS  BY  GAUSSIAN 
112H  ELIMINATION) 
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C 

C  ANOTHER  METHOD  CF  SOLUTION  SHOULD  BE  PROVIDED  HERE 

C  IN  CASE  OF  THE  FAILURE  OF  THIS  SUBROUTINE  TO  SOLVE  THE 

C  SET  CF  EQUATIONS 

C 

NXB1=NXB1-1 

RETURN 

END 
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SUBROUTINE  EN TF P Y ( ANS , NCP ) 

COMMON  KPM,  N2,  N3,  N2MAX ,  N  3  M  A  X , 
COMMON  KEFLAG,  NE,  NEMAX 

COMMON  KSFLAG,  NS,  NSMAX 
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KPMR 

COMMON 

EN,  NEN,  NEL,  NELMAX, 

ENC,  NENC,  NECL ,  NE 

1CLMX 

COMMON 

SNt  NSN  ,  NSL ,  NSLMAX, 

SNC ,  NSNC,  NSCL,  NS 

iCLMX 

COMMON 

KUS,  NUS ,  NUSMAX, 

KPS,  NPS ,  NPSMAX 

COMMON 

NUS 1 ,  NUS2,  NUS3 , 

KCV1,  KCV2,  KCV3 

COMMON 

KEUS,  NEUS,  NENUM 

COMMON 

KECVl,  KECV2,  KECV3,  KECV4 

COMMON 

NEC V 1  ,  NECV2,  NEC  V 3 ,  NEC  V4 

common 

KE1,  NE1,  NE 1  MAX, 

KE2,  NE2 ,  NE2MAX 

common 

KE3,  NE  3 ,  NE3  MAX , 

KE4,  NE4 ,  NE4MAX 

common 

KES,  KES2,  KE  S3 

CGMMCN 

KPET,  KRET2,  KRET3 

common 

STRM,  STRMC 

COMMON 

STRM1  ,  STRMCI  ,  NIN, 

STRMO,  STRMCC,  NOUT 

CGMMCN 

DELS,  DELSC,  LIMIT,  LIMIT2 

,  LIMIT3,  LOOP,  KBAC 

IK 

COMMON 

KRUN,  KSETS,  KCLEAN,  LOOPS 

,  NOGO 

common 

TITLE,  NOKPM ,  NOEN,  NOENC, 

NCSN ,  NUSNC,  NUKPS, 

1  N  S  t  r  y, 

COyMCN 

NLX,  NLY,  NLXS,  NLXSC 

common 

I  CON V ,  NEX,  NECALL,  NEQUIP 

COMMON 

ND2,  ND  3 ,  ND4 ,  ND5 ,  ND6 ,  ND7 

coy MON 

EXX,  D 1 5 ,  D 1 6 

COyMON 

12, 13, 14, 15, 16, 17, 18, 19, 110, Ill, I 12 *113, 1 14, 11 

15 

coyycN 

J2»J3,J4,J5 

COyMCN 

J  6 ,  J7,J8»J9,J10,J11,J12»J13»J14»J15,J16»J17,J 

1  18  y  J  19  f 

J  2  C  , 

I 

J21, J22, J23,J24, J25, J26, J27, J28, J29, J30, J31 , J3 

12,  J33, J34, 

2 

J35,J36,J37,J38,J 19,J40,J41 , J42 , J43 , J44 , J45 , J4 

16 

coyycN 

J47,J48,J49,J50,J51,J52,J53,J54,J55,J56,J57,J5 

18,  J59, J60 

coyycN 

K2,K3,K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K1 

15,K16,K17, 

1 

K18,K19,K20,K21,K22*K23,K24,K25,K26,K27,K28,K2 

19 ,K3C 

COMMON 

L2,L3,L4,L5,L6,L7,L8,L9,L10,Lll,L12,L13 

COMMON 

NDELS,NDELSC 

coyycN 
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IN ALLOW (  l5),NLEGTH,NSrK(30)  ,CCEFF( 16, 16)  ,C(  ifc) , NKS  FR ( 16_ 

1  ) , NKCOL (  16 ) , 

2NROW»NX6l ,CMPRCP( 15, 10), NEB, TREE 

C  1  MENS  ION  NEXEGN ( 30 ) ,  NAME ( 30 ) , KSEM ( 60 , 3 ) 

DIMENSION  KPM(30,10)  ,  KE  F  L AG ( 3G )  , 

K  SF !.  AG  (  60  )  ,  KPMR  (  30 

1,12) 

DIMENSION  S  N ( 6  0,20)  ,SNC(60,10),  EN(30*10),  ENC(30,10 
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C  IPCK’S  ICN  K  U  S  (  6  0  )  »  KPS(IO),  KEUS(8) 

DIMENSION  KE  1  ( 30 ) *  KQ2(30),  KE3(30),  KE4I30) 

DIMENSION  STRM(60,20),  STRMC(60,I0) 

_ DIMENSION  STRMI(8,20),  S TRMC I ( 8 ,  10 )  ,  STRMG(8,20),  STR 

1MC0 ( 8 » LO ) 

DIMENSION  D  EL  S ( 20 ) ♦  OELSC(IO) 

DIMENSION  T  I  TL  E  (  12),  IC0NVU5),  NEC ALL ( 30 ) 

REAL  K 
REAL  LHV 
C _ _ 

C  S U BRCU TINE  E N TER Y 

C 

C  REFERENCE  STATE  FOR  COMPONENTS  IS  SATURATED  LIQUID  AT 

C  TREE  DEGREES  RANKING  UNLESS  AT  THIS  TEMPERATURE  THE 

C  PURE  COMPONENT  EXISTS  AS  A  GAS  AT  ONE  ATMOSPHERE 

C  PRESSURE 

C 

C  MIXING  EFFECTS  NEGLECTED. 

C 

C  ELEMENTS  OF  CM PROP  MATRIX  CONTAIN- 

C 

C  ELEMENT  PHYSICAL  PROPERTY 

C.  1  LATENT  HEAT  OF  VAPOURIZATION  'NBP 

C  2  NORMAL  BOILING  POINT  DEGREES  RANKINE 

C  3  HEAT  CAPACITY  FOR  GAS  OR  FIRST  CONSTANT 

C  IN  HEAT  CAPACITY  EQUATION 

C  4  SECOND  TERM  OF  HEAT  CAPACITY  EQUATION 

C _ TIMES  10.**2  _ _ _ 

C  5  THIRD  CONSTANT  OF  HEAT  CAPACITY  EQUATION 

C  TIMES  10.**5 

C  6  HEAT  CAPACITY  FOR  LIQUID 

C  7  VAPOUR  PRESSURE ( PS l A) ' TREF 

C  8  MOLECULAR  WEIGHT 

C  9  CRITICAL  TEMPERATURE  DEGREES  RANKINE 

C  10  CRITICAL  PRESSURE  PS  I A 

C 

C  HEAT  CAPACITY  EQUATION  OF  FORM 

C  CP=A+B*T+C*T**2 

C 

C  IF  VAPOUR  PRESSURE  AT  TREF  IS  GREATER  THAN  ATMOSPHERIC 

<T  PRESSURE  THEN  THE  REFERENCE  STATE  FOR  THAT  COMPONENT 

C  IS  VAPOUR  AT  14.7  PSIA  AND  TREF  DEGREES  RANKINE, 

C  OTHERWISE  IT  IS  SATURATED  LIQUID  AT  TREF 

C 

C  THE  EQUATION  OF  STATE  CHOSEN  TO  EVALUATE  ENTHALPY 

C  ENTHALPY  DEPARTURES  VAN  PER  WAALS  EQUATION  OF  STATE 

(T 

C  WATSON, S  EMPIRICAL  CORRELATION  IS  USED  TO  EVALUATE 

C  THE  LATENT  HEAT  OF  VA  POUR  I  7.  A  T  I  ON  AT  TREF  FROM  THAT 

C  WHICH  IS  GIVEN  AT  NBP 

C 

C  PRESSURE  IS  STORED  IN  SNC(NSN,3) 

C  TEMPERATURE  IN  SN ( NSN yNSLMAX) 

C  QUALITY  IN  SNC(NSN,5)  AND  VAPOUR  RATIO  IN  SNC(NSN»8) 

C  ALL  FOUR  OF  THESE  MUST  BE  KNOWN  BEFORE  THIS  SUBROUTINE 
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IS  ENTERED 

HEAT  CAPACITIES  ARE  GIVEN  AT  ONE  ATM  PRESSURE 


R  =  1 0  . 73/CMPROP ( NCPt  8 ) 

TB=CMPROP(NCP,2) 

_ LHVbCMPROP ( Nt P , 1 ) *(  ( 1 .-TREF/CMPROP (NCP ,9)  ) / (  1  • -TB/CMPR 

1GP ( NC P  »  9 )  ) )* 

1*.  38 

CPG=CMPROP(NCP,3 ) 

C  PC  1  =  CM  PROP ( NCP, 4 ) 

CPG2  =  CMPR0P ( NCP  »  5 ) 

CPL-CMPR0P(NCP»6) 

CCNVF=144.*. 0012856 

A=27.*R**2*CMPR0P(NCP,9)**2/(64.*CMPR0P(NCPfl0)) 
B=R*CMPR0P(NCP,9)/(8.*CMPR0P(NCP, 10) ) 

K  PH A  S  =0 

LOO  I  F ( SNC ( NSN , 5 ) .CT.O.Ol )G0TG518 
G0T05  19 

51b  IF ( SNC ( NSN , 5 ) . L T . 0 . 9  M GO TG4  24 
519  IF(CMPROP(NCP, 7) . GT . 1 4 . 7 ) GCT04 1 8 

14  18  Lf  < SNC ( NSN , 5 ) . L  T .  0 .CL JGOT 0  4 1 6 _ _ _ 

GOTO  41  7 

416  ANS=CPL*( SN(NSN,K3)-rREF) 

IF(KPHAS.EO.O)RETURN 

GCT0425 

418  NUM=  2 

_ IFINEb.EC .3)00 TCI  4 18 

T  =  S  N  (  N  S  N  ,  K  3  ) 

P  =  1 4 . 7 
GC  TO  500 

420  ANS=PRCORR 
GGT0423 

417  A  N  S  =  C . 

P= CM PROP ( NCP ♦ 7 ) 

T=TREF 
N  U  M  =  1 
GCT050C 

421  ANS=ANS+PRCCRR+LHV 

P=  14 . 7  ______  _  _____ 

~  T  =  T  R  E  F 
NUM  =  4 

_ GOTO  5C0 

43C  ANS= ANS-PRCGRR 
P=  14. 7 

_ T-SN  (  NSN  ,  K3  )  _  _ _ _ 

NUM=  5 
GOTO  5C0 

431  ANS=ANS+PRCCRR  ____ 

423  P  =  SNC ( N SN  ,  3  ) 

T=SN (NSN,K3 ) 

NUM=  3  _ _  _ _ _ 

GCT05C0 

422  ANS=ANS+CPG*(SN(NSN,K3)-TREF)-PRCGRR 
l+CPGl*<SN(NSNtK3)**2-TREF**2)/200. 
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2+CPG2*( SN (NSN,K3  )  ** 3- TREF* *3 ) /3  00GG0. 
IF (KPHAS.EG.O)RETURN 
0010426 


5C0 

V 0  =  R*  T/P 

IF{NEB.EQ.2)GOTC501 

POCGRR=C . 

GCTC(421, 420,422, 4 30, 431)  ,NUM 

5C1 

FOFVC= ( P+A/V0**2 )*( VO-B)-R*T 

FPRIP  =  P-A/VO**2+2.*A*t3/VO**3 

V  =  V0-F0FVC/FPP  IP 

503 

I F ( ( ( V-VC ) /VO) -0.01 ) 502 *502, 503 

V  0  =  V 

GCTG501 

5C2 

424 

PRC0RR= ( r*t-P*V+A/V )*CONVF 

GOTO (421, 420, 422, 430, 431), NUM 

KPFiA  S=KPHAS+  l 

G  =  SNC ( NSN , 5 ) 

P  =  SNC ( N SN  ,  3  ) 

T  =  SN ( NSN  »  K  3  ) 

I  =NC  P 

CALL  EQU  I  LK (  I,K,T,P) 

RAT IC=K*SN (NSN ,8 ) / ( 1 . -SN ( NSN , 8 )  ) 

R  =  RAT  10/ (RAT  10  +  l  .  ) 

SNC ( NSN  »  5  )  =1 .0 

GC  TO  LOO 

425 

IF (KPHAS.GT.  1  ) GC  TG4  26 

HV=ANS 

SNC(NSN,5)=0. 

426 

KPHAS=KPHAS+ 1 

GGTCICO 

HL=ANS 

ANS=R*HV+ ( l.-R )*HL 

SNC(NSN,5)=Q 

RETURN 

END 
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SUBRCUT INE  EgUILK(  I  ,K  ,T,P) 


COMMON 

COMMON 

COMMON 

KPM,  N2 ,  N  3 ,  N2MAX,  N3MAX* 
KEFLAG,  NE,  NEMAX 

KSFLAG,  NS,  NSMAX 

KPMR 

COMMON 

EN,  NEN,  NEL,  NELMAX, 

ENC, 

NENC,  NECL , 

NE 

1CLMX 

COMMON 

SN,  NSN,  NSL ,  NSLMAX, 

SNC, 

NSNC,  NSCL , 

NS 

1CLMX 

COMMON 

COMMON 

KUS,  NUS ,  NUSMAX, 

N U S l ,  NLS2,  NUS3* 

KPS, 

KCVi 

NPS ,  NPSMAX 
,  KCV2,  KCV3 

COMMON  KEUSi  NEUS,  NENUM  ' 

COMMON  KECVL,  KECV2,  KECV3,  KECV4 

COMMON  N  E  C  V  1.  ,  NECV2  ,  NEC  V  3  t  i\:ECV4  _ _ ___  _____ 

COMMON  KG  1  ,  NEit  N  6 1M  A  X*  KE2,  NE2*  NE2MAX 

COMMON  K  E  3 »  NE3 »  NE3MAX »  KE4,  NE4,  NE4MAX 

COMMON  KES,  KES2 ,  KE  S3 
COMMON  K  R  E  T  ,  KRE  T2 »  KRET3 
COMMON  STRM,  STRMC 

COMMON  STRM  l  ,  STRMCI,  NIN,  STRMO,  STRMCO,  NOUT 

COMMON  DELS,  OtLSC,  LIMIT,  LIMIT2,  LIMIT3,  LOOP,  KBAC 
IK 

COMMON  KRUN,  KSETS,  KCLEAN,  LOOPS,  NOGO 

COMMON  TITLE,  NOKPM,  NOEN,  NOENC,  NCSN,  NOS NO ,  NOKPS, 

1  NSTRM 

COMMON  NLX,  NLY,  NLXS,  NLXSC 
COMMON  I  CON  V ,  NEX,  NECALLt  NEQUIP 
COMMON  NC2 ,  ND3,  ND4 ,  ND  5 ,  ND6 ,  ND7 

COMMON  EXX  ,  D  1  5  ,  016 _ _ 

COMMON  ! 2 ,  I  3 ,  14 ,15,16 , 17 ,18 ,  I  9 , I  10,  II 1,112 , 113,  I  14  ,  II 

15 

COMMON  J2»J3,J4,J5 

COMMON  J  6 ,  J7,J8,J9, J10, Jll, J12,JI3,J14, J 1 5 , J 1 6 , J 1 7 , J 
118, J19, J20, 

1  J21,J2?,J23,J24,J25,J26,J27,J28,J29,J30,J31,J3 
12,  J 33, J 34  , 

2  J35, J3  6, J37, J  38, J39, J40, J4  1 , J42 , J4  3 , J44 , J4  5,  J4 

16 

COMMON  J4  7,  J4  8, J4  9, J  50 , J 5 1 , J 52 , J 5 3 , J54 , J 5 5 ,J56,J57,J5 

18,  J59, J60 

COMMON  K2,K3, K4,K5,K6,K7,K8,K9,K10,K11,K12,K13,K14,K1 
1 5  ,  K  1 6  ,  K 1  7  , 

1  K18,Kl9,K20,K2i,K22,K23tK24,K25,K26,K27, K28,K2 

1 9 ,  K3  C  _ 

COMMON  L 2 , L  3 , L4 , L 5 , L 6 , L 7 , L8 , L9 , L 1 0 , L 1 1 , L  1  2 , L  1  3 
COMMON  NOELS, NCELSC 
COMMON  NEXEQN,  NAME,KSEM 

. COMMON  N  I  P  T  ("30  ")  ,  NOP  T  {  30)  ,  L  I P  ♦  LOP  ,  NCCCMP  ,  NUN  I  T  f  30  )  ,  LUN  I 

1 T , NB , NONO AL , 

IN ALLOW ( 15 ) t NL£GTH»NSTR( 30 ) »CQ£FF( 16,16),C(lb) ,NKSTR(16 
1  ) , NKC  OL (16)* 

?NRGW,NXB1 ,CMPRCP( 1 5 , 1 0 ) , NEB , TREF 
DIMENSION  NEXEGN ( 30 ) ,  NAME ( 30 ) , KSEM ( 60 , 3 ) 

DIMENSION - KPM( 30, 10)  ,  KEF  LAG (3  0) ,  KSF LAG (6 0 )  ,  KP M R (30 

1,12) 

DIMENSION  S 1(60,20)  ,SNC(60,10),  EN (30,10) »  ENC(30,U) 
1  ) 
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DIMENSION 
Cl  KEN  SI  CM 
C  IMENS  ION 
C I  KENS  ION 
IK CGI  8 ,  LG) 

C IMENS  ION 
PI HEN SION 
REAL  K  »  L H V 


KUSI60)  ,  KPSUO)  ,  KEUSI8) 

KE1 ( 30 ) »  K E^ ( 30  )  ,  KE3I30),  KE4I30) 
STRM(60,ZU),  SIRMC(60fl0) 

STRM  I  ( 8 »  20  )  t  STRMCI ( 8, 10)  ,  STRMO(8,20),  STR 


DELS ( 20 ) t  DELSC(LO) 

TITLE!  12)*  I  CON V  (15),  NEC ALL ( 30 ) 


SUBROUTINE  EQUILK 


LATENT  HEAT  OF  VAPOURIZATION  IS  ASSURED  CONSTANT  FOR 
EVALUATION  OF  EQUILIBRIUM  CONSTANTS 
IDEAL  EQUILIBRIUM  CONSTANTS  USED 

LHV=CMPROP( 1,1) 

VP=CMPROP< I, 7)*EXPI  LHV  *CMPROP ( l , 8 ) / 1 •987* ( 1 . /T 

1REF-1./T)  ) 

K  =  V  P  /  P 
RETURN 
END 
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SUBROUTINE  CUAL(N) 

COMMON  K.  PM,  N2,  N  3  »  N2MAX,  N3MAX,  KPMR 
COMMON  KEF  LAG,  NE ,  NEMAX 

COMMON  KSFLAG,  NS,  NSMAX _ _ 

COMMON  EN,  NFN,  NEL,  NELMAX,  ENC,  NENC,  NECL,  NE 

1  c  l  mx 

COMMON  SJNj  NSN ,  NSL,  NSLMAX,  SNC,  NSNC,  NSCL,  NS 

1CLMX 

COMMON  KUS,  NUS,  NUSMAX,  KPS,  NPS,  NPSMAX 

COMMON _ NUS  I  ,  NUS2,  NUS3, _ KCV1,  KCV 2  ,  KCV3 _ 

COMMON  KEUS,  NEUS,  NENUM 
COMMON  KECV1,  KECV2,  K EC  V 3  ,  KECV4 
COMMON  \ EC V 1 ,  NECV2,  NEC V 3 ,  NECV4 

COMMON  KEI,  NEL,  NE1MAX,  KE2,  NE2 ,  NE2MAX 

COMMON  K  E  3  ,  NE3,  N  E  3  FAX,  KE4,  NE4 ,  NE4MAX 

COMMON  KES,  KES2,  K ES  3 _ _ _ 

COMMON  KRET,  KRET2,  KRET3 
COMMON  STRM,  ST  KMC 

COMMON  STRM It  STRMCI ,  NIN,  STRMQ,  STRMCOt  NOUT 

COMMON  L.ELS,  CELSC,  LIMIT,  LIMIT2t  LIMIT3,  LOOP,  KBAC 
IK 

COMMON  KRLN ,  KSETS,  KCLEAN,  LOOPS,  NOGC _  _ 

COMMON  TITLE,  NCKPM,  NCEN ,  NO ENC,  NCSN,  NOSNC,  NOKPS, 
I  NSTRM 

COMMON  NLX,  NLY  ,  NLXS,  NLXSC 
COMMON  ICONV,  N  L  X  ,  NECALL,  NEQUIP 
COMMON  NC2 ,  NO 3 ,  NC4,  ND5 ,  ND6 ,  ND7 

COMMON  EXX,  D 1 5 ,  DI6 _ 

COMMON  12, 13, 14, 15, 16, 17, 18, 19,110,  ILL, 112,113, 114,11 

15 

COMMON  J2, J3, J4,J5 

COMMON  J 6 ,  J7,J8,J9,J10,J11,J12,J13,J14,J15,J16,J17,J 
1  Id,  J  19,  J2C, 

1  _ J2_i  ,J22,J23,J24,J25,J26,J2  7  ,  J28 ,  J29 ,  J30  ,  J31 ,  J3 

12,  J 3  3, J 34, 

2  J35, J36, J37, J38,J39, J40, J41 , J42 , J43 , J44 , J45 , J4 

16 

COMMON  J47,JC8,J49,J50,J51,J5?,J53,J54,J55,J56,J57,J5 
18 , J59 , J60 

COMMON  K2,K3,K4,K5 , K  fc , K7 , K8,K9,K10,K11,K12,K13,K14,K1 

1 5  ,  K  1 6  ,  K  1  7  , 

1  K18,K19,K20,K21,K22,K23,K24,K25,K26,K27,K20,K2 


i  -  ,  '  - 

COMMON  L2»L3,l4,L5»L6,L/,L8,L9»Lio,Lll»L12,Li3 

COMMON  NOELS, NDELSC 

COMMON  NEXEGN*  NAME, KS EM 

COMMON  NIP  T ( 30)  ,NOPT( 30) »L IP, LOP, NOCOMP, NUN  I  T(3C)  ,LUNI 
1T,NB,NCNCAL, 

1 N  A  L  L  C  W  (  L5)  ,NLEGTH,NSTR(30)  ,C0EFF(16,16) »C( 16) ,NKSTR(  16 

1 ) , NKCGL ( 16 ) , 

2N  ROW , NXB  1  , CM PROP (15,10),NEB,TREF 

DIMENSION  NEXECN(30),  NAME ( 30 ) , KSEM ( 60 » 3 )  _ 

CIMENSICN  KPMi(30,10)»  KEFLAG(30),  KSFLAG(60),  KPMR(30 

1 ,  1  2  ) 

DIMENSION  SN ( 60 ,  20 )  ,  SNC (60, 10),  EN (30, 10) t  ENC (30 ,10 

1  ) 
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C IRENS  ICN 

C IRENS  ICN 

C  IRENS  ICN 

C IRENS  ICN 

KUS { 60 )  ,  KPS ( 1C),  KE  US { 8 ) 
KEI ( 30  )  ,  KE2( 30  )  ,  KE3( 30)  , 
STWR(6C,?G),  STRRC (60, 1C ) 
STRR  1(8,20),  STRRC  1(8.10. 

KE4 ( 30 ) 

STRR:0(  8, 20  )  ,  STR 

ircc  c  e ,  io) 

C IRENS  ICN 

C  I  R  E  N  S  I C  \ 

DLLS ( 20 ) ,  CELSC11C) 

T  I  T  L  E  (  12),  I  CON V (15),  NEC ALL ( 30 ) 

c 

C  I  R  E  N  S  I C  N 
REAL  K 

Zi  8 ) 

c 

r 

SUDRCUT INE 

GUAL 

V-* 

. . c 

N  IS  THE  STREAM  NUMBER 

c 

c 

c 

IDEAL  K  VALUES  USED 

CLAUSIUS  CLAPYRCN  EQUATION  USED  TO  CALCULATE  VAPOUR 
PRESSURES 

c 

N  SCR P  r  =  2*NCCCR  P*4 

T  =  SN(N,NSCRP  I  ) 

P  =  SNC ( N , 3  ) 

IF(T.LT.SNC(N,6)  )GCT03 
IF  Ct  .GT.SNCtNi 7 )  )  GCT04 


C 

C  FLASH  CALCUL AT ICN  REQUIRED 


V 

CCTC5 

3 

SNC ( N ,5 )=C. 

RETURN 

4 

SNC(N,5)=1. 

RETURN 

5 

VC=C. 

SURMS=C. 

SURZR  =C . 

L'C  11  1  =  1  ♦  NCCOR  P 

1  1 

SURZR-SUR!ZR  +  SN(N»  I+3)/CMPRGP(  1,8) 

CC  12  1  =  1,  NCCCR  P 

Z  (  1  )  =  SN  ( <\  ,  1  +  3)  /  CM PROP  (1,8)  /SUR1ZR 

12 

SURRS=SURRS  +  Z(  I  ) *CMPROP ( I , 8 ) 

7 

SUR  =  C  . 

S  U  R  V  =  C  . 

SURRG  =0 . 

L'C  6  1  =  1,  NCCOMP 

CALL  EQU  I  LK (  I  , K , T  ,  P  ) 

Y  G  =K  *  Z (  I  ) / ( VC* ( K  —  1  -  )  +  1 .  ) 

SUR=SUM+YG 

SUR RG = SURRG +YG*CMPRCP ( I ,8 ) 

6 

SURP  =  SURP-K*Z (  I  )*(K-1 . )/( V0*(K-1. )  +  l . )**2 

SUR  =  SUM-  1  . 

V  =  VC- SUR / SURP 

IF ( AES ( V-VC ) .LT .0.001 ) GOTO 8 

10 

VC  =  V 

GCTC7  ......  _  .  .. 

8 

IF ( V.LT.O.  )  V=C. 

IF ( V.GT. 1 .  )  V  =  1  . 

S  N  C  (  N  ,  8  )  =  V 
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SKC ( N , 5 ) 

RETLRN 

ENC 


V*SUFRG/  SUf^MS 
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SUBROUTINE  BlJBPT(N) 


COMMON 

COMMON 

COMMON 

KPM,  N2  »  N  3 ,  N2MIAX ,  N3MAX, 
KEELAG,  NE,  NEMIAX 

KSFLAG,  NS,  JSMIAX 

KPMR 

COMMON 

EN,  IE N,  NEL,  NELMAX, 

ENC, 

NENC,  NECL , 

NE 

1 C  L  M  X 

COMMON 

.SN,  NSN,  NSL,  NSLMAX, 

S NC  , 

NSNC ,  NSCL , 

NS 

1CLMX 

COMMON 

KUS,  NUS,  NUSMAX , 

KPS, 

NFS,  NPSMAX 

COMMON 

NUSl,  MS2,  NUS3, 

KCVl 

,  KCV2,  KCV3 

COMMON 

KEUS,  NEUS,  NENUMI 

COMMON 

KECVl,  KECV2,  KECV3,  KECV4 

COMMON 

NECV1,  NECV2,  NEC  V  3 ,  NEC V4 

COMMON 

KE1,  NE  I  ,  NELMAX, 

KE2, 

NE2,  NE2M1AX 

COMMON 

K  E  3 ,  NE  3 ,  NE3MAX, 

KE4, 

!ME4,  NE4NIAX 

COMMON 

KES,  KES2,  KE  S3 

COMMON  KPET,  KRET2,  KRET3 
COMMON  STRM,  STRMC 

COMMON  STRM I,  STRHCI >  N I N »  STRMG,  STRMCC,  NOUT 

eGMMCN  DELS*  CELSC,  LIMIT,  LIMIT2,  LIM.IT3,  LOOP,  KBAC 
IK 

COMMON  K RUN  ,  KSETS,  KCLEAN,  LOOPS,  NOGQ 

COMMON  TITLE,  NGKPM ,  NOEN,  NOENC,  NCSN,  NOS NO ,  NCKPS » 
1  NSTRM 

COMMON  NLX,  NLY,  NLXS,  NLXSC 
COMMON  IGGNVf  NEX,  NECALL,  NEQUIP 
COMMON  N 0 2 ,  NC 3 ,  ND4  ,  NO 5 ,  ND6,  NO 7 

COMMON  EXX,  D15,  D16 _ 

COMMON  12,  13, 14,  15, 16, 17,  18, 19, I  10,  Ill, 112, 113, 114, 11 
15 

COMMON  J?,J3,J4,J5 

COMMON  Jfc,  J7, J8, J9, JIG, Jll, J12, JI3  ,J14, JI5, J16, JI7,J 
118, J19, J20, 

1   J  21,  J22,  J23  , J24, J25, J26, J27  ,  J28 ,  J  29,  J3Q,  J3 1  ,  J  3 


12 , J33 , J34 , 

2  J  35 , J36 , J3  7 , J  38 , J  39 , J40 , J4 1 , J42  » J43  » J44 , J45 , J4 

16 

COMMON  J  4  7  *  J  4  8 1 J  49  *  J  50  »  J  5 1 f  J  52  »  J  5  3 1  J  54  *  J  55  *  J56 1 J  57  »  J  5 
18, J59, J60 

COM MCN  K  2 , K  3 , K4 , K5 ,Kfc,K7,K8,K9,KlC>Kll,KI2fK13,K14,Kl 

15,K16,K17, 

1  K18,K19,K20,K2l»K22,K23,K24,K25»K26»K27,K28,K2 

COMMON  L2,L3,L4,L5,Lb,L7,L8,L9,LlC,LU,L12,Ll3 
COMMON  NOELS, NDELSC 

COMMON  NEXECN,  N  AME , K SEM  _ 

COMMON  NIPT(30),N0PT(30),LIP,L0P, NCCCMP , NUN  I T ( 30 ) , LUN I 
l T , NB , NONO  A  L , 

IN  ALLC W ( 1 5 ) , NLEG T H , NS T R ( 30 )  , CUBE  F (  16 ,  16 ) , C ( 16 ) , NKSTK ( 16 
1 ) , NKCCL (  16), 

2NR0K ,NXfcl  ,  CM  PROP (18,10),NEB,TREF 

CIMENSION  NE  XECN  (  30  )  ,  NAM1E(30  )  ,  KSEM  (60 , 3) _ 

CIMENSICN  KPMI  (  30 , 10)  ,  KEFLAG(30),  KSPLAG(6G),  KPMRI3G 

1,12) 

CIMENSICN  SN( 60,20)  ,SNC(6C,10),  EN  (  30 , 1 0 ) ,  ENC(30,iC 

1  ) 
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C  INENSIGN  KUSUC).  K  P  S  (  L  0  )  ♦  KEUSI8) 

CINENSICN  K  F l { 3  0  )  *  KF2I30),  KE313C),  KEM30) 
CIMENSION  STRM(oC,20) »  S T RMC ( 60 , 1C ) 


1MCCI 8 ,  1C ) 

C  I  MENS  ION 
Cl  MENS  ICN 

•J  1  '  l  4  t  f  t  \J  1  ,  U>  /  |  I  Dir 

CLLS12C),  DELSC(IO) 

T 1 T L  E (  12),  I CCN  V (  15)  ,  NLCALL ( 30 ) 

C 

Cl  FENS  ION 
REAL  K 

X  ( 8 ) 

c 

r 

SUBROUTINE 

BUBPT 

c 

SNC ( N  SN , 6  ) 

IS  TEE  BUBBLE  POINT  TEMPERATURE  IN  DEGREES 

c 

c 

c 

RANK  INE 

ICEAL  K  VALUES  USED 

IF ( SNC (N ,  4  )  - L  T . 1 .9 )G0T09 

T  =  CMPRCP (  1,2 ) 

P  =  SNC ( N  »  3  ) 

K  T I P  E  S=  1 

CCNVERT  MASS  FRACTIONS  TO  MOLE  FRACTIONS 


SUMXN  =C  . _ _ _ 

CC  13  1  =  1,  NCCCMP 

13  SUMXM=SUMXM+SN(N, 1+3) /CMPROPI 1,8) 
CC  14  I =1 tNQCQMP 

14  X (  I  ) - S  N ( N  v I+3J/CMPR0P ( I,8)/SUMXM 
3  SUMY  =  C . 

CC  4  I  =  1 ,  NCCQMP _ _ _ 

CALL  EQUILKI  I,K,T,P) 

Y=K*X (  I  ) 


4  SLMY  =  SCMY  +  Y 

If  (AfiS(  SUNY-l.O-C.Ol  )8,8, 5 

5  KT  IMES  =  KT  IMES-1 

I  F  I  K  T  I  N  E  S  )  7 , 6 , 6 _  _ 

6  SUMYC=SUM Y 


T  C  =  T 


T  =  T  +  1C. 

C-CTC3 

7  SLCPE=(SUMY-SUMYC)/( r-TC) 
T  N  = (  (  1 .Q-SUMY )/SLOPE) +T 
SLMYC=SUM Y 
TC  =  T 


T  =  TN 
GCTC2 

8  S NC  (  N ,6 )=T 

RETURN _ _  __  _  _  _ 

9  SNC ( N ♦ 6  )  =  1  ./ ( 1 . /TREF-2.303*IC.73/CMPROP( L  » 8  ) * ALCG10 ( SN 

1C ( N, 3  ) /CM PRC 

IP  (1,7)  ) /CHPRQP  M  > 1 ) ) 

S  N  C  (  N  ,  7 ) ~  S  NG ( N  »  6 l 
RETURN 
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SUBROUTINE  CEWPT(N) 

CCNMCN  K  PN  »  N  2  »  N3 ,  N2MAX  ,  N  3  N>  A  X  ,  KPMR 
CCNMCN  KEFLAG,  ME,  NENIAX 


CCMMCN 

1CLNX 

CON  MEN 

IX  L.  r-*\J  1  ’XOf  X  JHHA 

EN,  NEN ,  NEL,  NELMAX, 

SN,  NSN ,  NSL ,  NSLMAX, 

ENC  y 

SNC  , 

NENC,  NECL , 

NSNC,  NSCL, 

NE 

NS 

1CLMX 

COMMON 

CGNMCN 

KLS,  NUS  »  NUSMAX, 

NLSlj  NLS2,  NUS3 » 

KFS, 

KCV1 

N  PS  y  NPSMAX 
,  KCV2,  KCV3 

COMMON 

KELS,  NEUS,  NENUM 

CCNMCN 

KECV1,  K EC V?  »  K  EC  V  3  ,  KECV4 

CCNMCN 

NECV1,  NECV2,  NEC  V  3 ,  NEC V4 

CCNMCN 

KF1,  NEiy  NElMAXy 

KE2  , 

NE2  »  NE2M.AX 

CCNMCN 

KE3,  NE  3 ,  NE3MAX, 

KE4, 

NE4 ,  NE4MAX 

CCMMCN 

K  E  S*  KES2,  KE  S3 

COMMON 

COMMON 

COMMON 

KRET,  K  R  E  T  2  y  KRET3 
STRM,  STRMC 

STRMI  ,  STRMCI  ,  NIN, 

STRNIO,  STRMCC,  NCUT 

CCMMCN 

DELS,  CELSC »  LIMIT, 

LIMIIT2,  LIMIT3,  LOOP,  KBAC 

IK 

CCMN  CN 

KRLN,  KSETS,  KCLEAN 

,  LOOPS,  NOGO 

CCMMCN 

TITLE,  NCKPM,  NOEN, 

NOENC,  NCSN ,  NOSNC,  NOKPS, 

1  NSTRM 

CCMMCN 

NLX,  NLV,  NLXS,  NLXSC 

CCMMCN 

ICCNV,  NEX,  NECALL, 

NEQUIP 

CCMMCN 

COMMON 

NC2,  NC3,  ND4 ,  ND  5 , 
E  X  X ,  D 1 5 ,  016 

ND6 ,  ND7 

COMMON  12, 13,  [4, 15, 16, 17,  18, 19, 110,111, 112, 113, I  14, II 
15 

COMMON  J2,J3,J4,J5 

COMMON  J  6  »  4?  y>‘  J  8  y  J 9 y  J  1 0  y  J  1 1  y  J 1 2  y  J  1 3  ,  J  1 4  y  J  1  5  y  J  1 6  y  J 1 7  y  J 
118yJ19yJ2Cy 

I  J21y  J22y  J23y J  24 ,  J25,  J26,J27,  J28y J29y J30y J31  y J3 


12,  J33, J34 , 

2  J35, J36, J37, J38, J39, J40, J41, J42 , J43 , J44 , J45 , J4 

16 


CCMMCN  J47,J48,J49,J50,J51,J52,J53,J54,J55,J56,J57,J5 
18 , J59 , J60 

CCNMCN  K2,  K3,  K4  ,K5,K6,  K  7  ,_K8  ,K9,K10,  K  1  1  »  K  1 2j_K  1  3  ,  K 1 4  ,  K_l 
1  5  y  K  1  6  »  K  1  7  y 

1  K  1  8  ,  K 1 9  »  K20 , K2 l ,K22 , K2  3  ,  K24 , K2  5 , K26 , K27 , K28 , K2 

15  ,  K3C 

COMMON  L2yL3yL4yL5yL6yL7yL8yL9yL10yLllyL12yL13 
CCNMCN  NCELS  » NCEL  SC 

CONNCN  NEXEQNy  NAMEyKSEM   


CCNMCN  N  I  PT  (  30)  fNOPT(  30)  y  L  IP  y  LOPyNCCCMPyNUNIK  30)  y  LUNI 
IT  »NB  , NCNC  A  L  » 

IN ALLOW! 15 ) yNLEGTH , NSTR ( 30 ) ,COEFF( 16,16) ,C ( 16 ) , NKSTR ( 16 
1  )  »  N  K  C  C  L  (  1  6  )  , 

2NRCV.  yNXBl  yCMPRGP!  15,10)  ,NE  B,  TREF 
C  I  MEN  SIGN  i\  E  X  E  CM  3C)  ,  NAME  (  30  )  ,  KSEN.  (  60  ,  3J 

CINENSICN  KPM(30yl0),  KE FLAG ( 30 ) ,  K SFLAG ( 60 ) ,  KPMR ( 30 

1,12) 

DIMENSION  SN( 60,20)  , SNC ( 6G  ,  10  )  ,  £N(30,10) ,  ENC(30, 10 
1  ) 
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C  INtNS  ICN 
C  I  PENSION 
C  I  P  E  N  S  I C  N 
C  IPENSICN 


KUS(60),  KPS (10),  KE U S ( 8 ) 

KE1(30),  K  E2 ( 3 0  )  ,  KE3(3C),  KE4I30) 
SrRP(6C,20),  STRMC(60,  1C) 


STRMG (8,20) ,  STR 


IPCO( 8 ,  1C ) 

C  IPENSICN 

C  IPENS  ION 

C EL S ( 2 0 ) ,  DELSC(IO) 

T  1  T  LE (  1 2 ) ,  I  CON  V (15),  NEC  ALL ( 30 ) 

c 

C  I  PENS  ICN 
REAL  K 

Y  (  8  ) 

SUBROUTINE  CEWPT 


S  N  C  (  N  S  N  »  7  )  IS  TEE  DEW  POINT  T  E  M  PER  A  T  L  RE  IN  DEGREES 
RANK  INE 

ICEAL  K  VALLES  LSED 


T  =  CP  P  RC  P (  1,2) 

P  =  SNC ( N , 3  ) 

K  T  IP  E  S  *  1 

C  CONVERT  PASS  FRACTIONS  TO  POLE  FRACTIONS 

SUPVP=C . 

_ CL  13  1  =  1  fNCCOPP _  _ 

13  SUPYP=$OMYP+SN(N,  1+3)  /CMPROPU  ,8) 

DC  14  1=1,  NOCOP P 

14  Y  (  I  )  =  SN(N  ,  1  +  3  )  /CPPROP  (1,8)  /SUPYP 
3  SUPX=C. 

CO  4  1=1, NCCOMP 

_ CALL  ECUILM  I  , K ,  T , P  ) _ 

X  =  Y (  I  )  /K 
A  SUMX=SUPX+X 

IF ( ABSi SUPX-l. )-C.Cl ) 8,8, 5 

5  KT  IP CS  =  KT  IPES-  1 
IF (K  r  IPtS  )  7,6,6 

6  SUMXO  =  SUP!X _ 

TC=f 

T  =  T  +  1  L  . 

GOTO  3 

7  SLOPE ={ 3UPX-SUPX0)/ ( T-TO) 

TN= (  (  1  .C-SLPX ) /SLOPE) +T 

_ SLPXC  =  SUPX _  _ 

TC=  T 
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